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ПРЕДИСЛОВИЕ 


AutoCAD - это мощная, самая распространенная у нас и за рубежом HH- 
женерная система автоматизации проектирования самых разнообразных 
объектов: от плана офиса до космических станций. 

Постоянно развивающаяся система AutoCAD состоит из трех основных 
компонентов: графического редактора AutoCAD, языка программирова- 
ния высокого уровня AutoLISP и инструментальных средств для создания 
графического интерфейса пользователя. 

Использование в системе AutoCAD языка AutoLISP не только значи- 
тельно ускоряет процесс разработки проектной документации, но и позво- 
ляет создавать новые команды графического редактора, специализирован- 
ные меню в среде AutoCAD, осуществлять доступ к графической базе 
данных и модернизировать ее, разрабатывать функции для решения самых 
разнообразных задач и, кроме того, создавать эффективные системы и под- 
системы, связаиные с обработкой информации, представлеиной в виде 
символов и чисел. Язык LISP был создан в 1962 году Дж. Маккарти, npo- 
фессором Стенфордского университета для эффективного решения задач 
искусственного интеллекта. В настоящее время существует огромное ко- 
личество версий этого языка, однако предпочтение отдается версии пол 
названием COMMON LISP. Именно эта версия была поддержана Лабора- 
торией искусствениого интеллекта Массачусетского технологического 
института (США), там же создана LISP машина и в качестве языка CHC- 
темного программировапия использован COMMON LISP По синтаксису 
и соглашениям AutoLISP наиболее близок к COMMON LISP. 

Формы представления программы и обрабатываемых ею данных в LISP 
одинаковы. И то n другое представляется в виде снисочной структуры. 
Программы могут обрабатывать, а также преобразовывать другие програм- 
мы и даже самих себя, что позволяет эффективно использовать LISP для 
решения широкого круга задач. 

В настоящее время na языке LISP реализованы многочисленные npo- 
граммные продукты: редакторы GNU EMAKS для различных языков про- 
граммирования на ЭВМ семейства VAX, математическое обеспечение сис- 
темы ииженерного проектирования AutoCAD, системы аналитических 
преобразований, объектно-ориентированные системы, большинство экс- 
пертных систем и другие. 


]2 Предисловие 
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Для 14-й версии AutoCAD создана мощная интегрированная среда npo- 
граммирования Visual LISP. Она включает следующие функциональные 
компоненты: 

e текстовый редактор, ориентированный на синтаксис языка AutoLISP 
и использующий язык кодирования цветом (DCL), что значительно 
упрощает чтение и отладку программ на языке AutoLISP; 

консоль. куда выдаются сообщения о результатах загрузки програм- 
мы. различные днагностические сообщения и T. N; 

e фФорматтер, который преобразует текст программы и придает ему Ner- 
ко читаемый структурированный вид; 

e эмулятор AutoLISP, обеспечивающий наглядность процесса выполне- 
ния программы; 

e программу проверки синтаксиса, распознавания неправильных KOH- 
струкций AutoLISP; 

° встроенную систему проверки, обеспечивающую удобный доступ 
к переменным и значениям выражений с целью просмотра структуры 
данных и их изменений; 

e отладчик, обеспечивающий высокий уровень отладки программ; 

° контекстно-зависимые справки для функций AutoLISP; 

e систему управления проектом, которая упрощает работу с приложе- 
HHAMH; 

* VNAKOBHIHK компилируемых файлов AutoLISP в АКХ-модули. 

Visual LISP полностью поддерживает интерфейс Windows. 

По сравнению с традиционными системами современные среды про- 


граммирования. какой является интегрированная среда Visual LISP nosso- 


ляют повысить производительность программирования в несколько раз. 

Целью настоящей книги является описание не только новой мощной 
интегрированной среды программирования Visual LISP для системы 
AutoCAD 14-й версии, но и процессов создания различных систем с се 
использованием. 

Книга содержит большое количество рисунков, иллюстрирующих ин- 
тегрированную среду Visual LISP, программирование на языке AutoLISP 
и решение конкретных задач. 

Автор далек от мысли, что книга свободна от недостатков, и с благодар- 
ностью примет все замечания и предложения HO ее улучшению, которые 
просит направлять по адресу: books@dmk.ru. 


== 


VISUAL LISP 


Структура и запуск 


ара, ЦОР Ве  T, 


Главное меню 

Мвис ПОР т АИ 
Понели инструментов 

Visia ЦОР В и ЖФ 
Текстовый редактор 

ма ее х 
Компилирование программ 

и выход из Visual LISP ............... w 


Глава 1 


ИНТЕГРИРОВАННАЯ СРЕДА 


Эта глава посвящена описанию интег- 
рированной среды программирования 
Visual LISP. Здесь рассматриваются 
структура среды, правила ее запуска, 
описываются главная и инструмен- 
тальные панели, текстовый редактор 
и другие элементы Visual LISP, 


вк. 
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1.1. Структура и запуск Visual LISP 


Visual LISP (УБР) - это интегрированная среда разработки программ 
на языке программирования AutoLISP в системе AutoCAD 14, которая 
значительно облегчает процесс создания npor paisas ес изменения, тести- 
рования и отладки. Кроме того, \ isual LISP обеспечивает эффективное 
использование автономных приложений ОВТЕСТАКХ, написанных на 
языке AutoLISP | 

Visual LISP включает следующие функциональные компоненты: 

e текстовый редактор, ориентироваиный на синтаксис языка AutoLISP 
и использующий язык кодирования цветом (DCL), что значительно 
упрощает чтение и отладку программ на языке AutoLISP; 
консоль. куда выдаются сообщения о результатах загрузки программы, 
различные диагностические сообщения и т. д.; 
форматтер, который преобразует текст программы и придает ему JIET- 
ко читаемый структурированный вид; 
эмулятор AutoLISP, обеспечивающий наглядность процесса выполне- 
ния программы; 
программу проверки синтаксиса, распознавания неправильных KOH- 
струкций AutoLISP; 
компилятор, который уточняет выполнение программы, ускоряет, 
а также обеспечивает безопасную и эффективную систему выдачи ре- 
зультатов; 
встроенную систему контроля, которая обеспечивает удобный доступ 
к переменным и значениям выражений с целыо просмотра структуры 
данных и их изменений; 
отладчик. обеспечивающий высокий уровень отладки программ; 
контекстно-зависимые справки для функций AutoLISP; 
систему управления проектом, которая упрощает работу с приложени- 
AMH; 

° упаковщик компилируемых файлов AutoLISP в АВХ-модули. 

Visual LISP имеет собственный набор окон и меню, который отличается 
от соответствующего набора AutoCAD. Однако запуск нитегрироваиной 


среды Visual LISP производится из системы AutoCAD 14-й версии. Вот ` 


почему при работе с Visual LISP систем у AutoCAD необходимо хранить 
на рабочем столе в открытом виде. Если AutoCAD свернут, то для продол- 
жения работы с Visual LISP окно AutoCAD необходимо восстановить 
и сделать его активным. При работе с графикой интегрированная среда 
Visual LISP взаимодействует с системой AutoCAD, отвечая на подсказки 
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относительно ввода. Запуск Visual LISP производится только после запус- 
ка системы AutoCAD. При этом возможны два варианта. 

Первый из них предусматривает загрузку приложения Visual LISP с no- 
мощью меню. AutoCAD имеет иерархическую систему меню, состоящую 
из главного меню и системы падающих и всплывающих меню (подменю). 
Главное меню AutoCAD - это набор пунктов меню для вызова падающих 
меню. Набор пунктов главного меню располагается во второй строке ра- 
бочего стола AutoCAD 14-й версии. Падающее меню AutoCAD - это Ha- 
бор пунктов меню для вызова всплывающего меню, диалогового окна или 
команды AutoCAD. Набор пунктов падающего меню располагается под Co- 
ответствующим пунктом главного меню. Всплывающее меню AutoCAD — 
это набор пунктов меню для вызова всплывающего меню, диалогового 
окна или команды AutoCAD. Набор пунктов всплывающего меню распо- 
лагается справа от выбранного пункта меню. Выбор пункта меню можно 
выполнить щелчком по нему левой кнопкой мышки. 

Чтобы произвести загрузку, вызовите в главном меню AutoCAD пункт 
Tools (Инструменты) и выберите в падающем меню пункт Load 
Application... (Загрузить приложение...). На экране появится диалоговое 
окно загрузки (рис. 1.1) Загрузить AutoLISP, ADS, и ARX Файлы (Load 
AutoLISP, ADS, and ARX Files). 

Чтобы выбрать приложение Visual LISP щелкните в диалоговом окне 
загрузки по кнопке File (Файл), и на экране появится диалоговое окно 
выбора файлов Выберите файл AutoLISP, ADS или ARX (Select 
AutoLISP, ADS, ог ARX File) (рис. 1.2). 


зить AutoLISP, ADS, и ARX Файлы 


Файлы для Считывания 
С\Машой$р\Напом,|5р 
CA\vlautolisp\Kuklalw.lsp 
СА\Мащой$р\МиКим.|5р 

САМащой$р\Ро$И м 15р 

| С\Машойр\Зеююгм.|р 
САМашщой$р\ ео 15 р 
СА\Мащойзр\Зхе!а1 м. 15р 
CAvlautolispiStrelaw.Isp 

C:\vlautolisp\Valrw.Isp 


загрузить | Выгрузить | Выход Помощь | 


V Сохранить список 


Рис. 1.1. Диалоговое окно загрузки файлов AutolISP, ADS и ARX 
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Выберите файл AutoLISP, ADS. ог ARX AEs 
Папка. [S Autocan R14 -] fa] e| JE 
l O Vlisp 


BA 111 


Template 
Textures 


Имя файла: f | Открыть | 
Тип файлов: [Lisp (*1р) -| Отмена | 


Рис, 1.2. Диалоговое окно выбора файлов AvtoliSP, ADS или ARX 


Найдите в этом окне папку (каталог) под названием Vlisp H дважды 
щелкните по ней мышкой. На экране появятся файлы папки (каталога) 
Visual LISP (рис. 1.3). 


Выберите файл AutoLISP, ADS. or ARX K EA 
Dana: [Sviss oO ë oo AAA Е 


Help: 


Sample 


ни 
v Отмена | 
Найти | Найти срайл..| 


Рис. 1.3. Диалоговое окно выбора файлов АуюИ$Р, ADS или ARX 


Тип файлов: Jsp {*lsp) 
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Диалоговое окно выбора файла может содержать по умолчанию только 
файлы с расширением LSP. В таком случае вам предстоит выбрать в поле 
Tun файлов (Files of type) расширение ARX. Для этого щелкните мышкой 
по расположенной рядом кнопке со стрелкой вниз. Откроется список рас- 
ширений. Выберите расширение ARX и щелкните по нему мышкой. В том 
же диалоговом окне появится другой набор файлов. Выделите файл под 
именем Vlide и щелкните по кпопке Открыть. На экране вновь появится 
диалоговое окно загрузки Загрузить AutoLISP, ADS, и ARX Файлы (Load 
AutoLISP, ADS, and ARX Files). 

Чтобы файл Vlide можно было использовать в дальнейшем, включите 
флажок Сохранить список (Save List). В квадратике рядом с надписью 
Сохранить список (см. рис. 1.1) появится галочка. 

Щелкните по кнопке Load (Загрузить). На экране появится главное 
окно Visual LISP (puc. 1.4). 

Второн варнант запуска предусматривает загрузку приложения Visual 
LISP с помощью команды VLIDE. В командной строке AutoCAD необхо- 
димо набрать команду УГЛЕ, нажать клавишу Enter (Ввести). На экране 
появится главное окно Visual LISP (puc. 1.4). 


W Visual LISP for AutoCAD Release 14 
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| Visual LISP console window 


Рис. 1.4. Главное окно Visual LISP 
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В первой строке (строке заголовка) главного окна Visual LISP указано 
название окна Visual LISP for AutoCAD Release 14 (Visual LISP для 
AutoCAD 14-й версин). 

Во второй строке главного окна Visual LISP расположены пункты глав- 
ного меню. Нижняя строка главного окна Visual LISP — строка состояния 
системы, в которой дается краткое описание функции команды. 


1.2. Главное меню Visual LISP 


Главное меню представляет собой систему, которая обеспечивает доступ ко 
всем средствам Visual LISP. По своей сути главное меню — основной 
управляющий центр интегрированной среды Visual LISP. Роль дополни- 
тельных центров играют панели инструментов и отдельные кнопки, за ко- 
торыми закреплены команды, используемые наиболее часто. 

Система меню Visual LISP - это хорошо скоординированная совокуп- 
ность падающих и всплывающих меню. После щелчка мышкой по любому 
пункгу главного меню или нажатия горячих клавиш (Hot Keys) на экране 
появляется соответствующее падающее меню. Горячая клавиша выделяется 
в названии пункта меню путем подчеркивания одной буквы. Для того что- 
бы с помощью клавиатуры получить быстрый доступ к пункту главного 
меню, а значит, и к соответствующему падающему меню, необходимо нажать 
клавишу Alt и, удерживая ее, нажать ту алфавитную клавищу, название KO- 
торой подчеркнуто. Например, для быстрого обращения к пункту View 
(Просмотр) достаточно нажать комбинацию клавиш АЕ+У. Чтобы вызвать 
соседнее падающее меню, необходимо нажать клавишу со стрелкой влево 
или вправо. Выделить любой пункт падающего или всплывающего меню 
(подменю) можно, щелкнув по нему мышкой или нажав клавишу со стрел- 
кой вниз либо вверх. Для выполнения выбранной команды необходимо на- 
жать клавишу Enter или горячую клавишу, название которой подчеркнуто. 
Чтобы закрыть падающее или всплывающее меню, достаточно нажать кла- 
вишу ESC или щелкнуть мышкой в поле окна вне меню. 

Содержание падающих меню может изменяться в зависимости от ис- 
пользуемого окна Visual LISP. Падающее меню состоит из пунктов, KOTO- 
рые могут быть пунктами подменю, диалоговыми или недиалоговыми ко- 
мандами. 

Если после названия пункта меню стоит многоточие, это означает, что 
перед вами диалоговая команда и при ее выборе появится диалоговое 
ОКНО. 

Когда в правой части пункта меню имеется треугольная стрелка, то при 


выборе данного пункта откроется подменю (всплывающее меню). 
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Главное меню Visual LISP 


В случае, когда яркость пункта меню понижена, этот пункт не доступен 
для использования. p: 

Если пункту меню предшествует флажок (галочка) или он появляется 
при выборе пункта, то это свидетельствует о том, что данный пункт может 
находиться во включенном или выключенном состоянии. При наличии 
флажка слева пункт меню считается включенным, при ero отсутствии — 
выключенным. 

Подчеркнутая буква в названии пункта меню обозначает горячую кла- 
вишу (Hot Key), которая может быть использована для быстрого доступа 
к команде или меню. Клавиши, указанные справа от пункта меню, явля- 
ются клавишами-акселераторами (Shortcut Keys, Acceleration Keys) 
и предназначены для оперативного доступа к пункту меню или команде. 

В процессе выбора пункта меню часто появляются диалоговые окна, 
в которых предлагается ввести недостающую информацию, уточнить ре- 
жимы выполнения команды и/или выбрать один из нескольких вариантов. 

Диалоговые окна имеют ряд элементов управления: 


кнопку управления (command button), которая выполняет 
| некоторое действие. Чтобы выполнить это действие, необхо- 
димо вначале выделить кнопку с помощью клавиши Tab (Shift+Tab), 
а затем нажать Enter или щелкнуть по кнопке мышкой; 


а И Флажок (check box, option), который задает или 
кои ’ уточняет режим выполнения команды. Он может 
находиться в двух состояниях — включенном (в квадратике слева сто- 
ит галочка) или выключенном (галочка отсутствует). Если флажок 
включен, то при выполненни команды будет осуществлено действие, 
указанное справа от квадратика. Смена состояния флажка произво- 
дится щелчком мышки или путем выделения надписи справа с помо- 
щью клавиши Tab (Shift+Tab), а затем пажатия клавиши Space; 


= Омебивя 22 ‚ переключатель (radio buttons), представляющий 

a iry =|| собой перечень взаимоисключаемых вариантов, 
| Из Которых выбирается какой-либо один. Эти Ba- 
рианты называются положениями переключателя. Текущее положс- 
ние отмечается точкой в кружочке слева. Для установки переключа- 
теля в нужное положение необходимо щелкнуть по этому кружочку 
мышкой или выделить надпись справа с помощью клавиши Tab 
(Shift+Tab), а затем нажать клавишу Space; 


| i | поле ввода (text box), которое позволяет 
| Maanam НАбирать, оставлять или редактировать 
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имеющуюся последовательность символов. Поле ввода предоставля- 
ет возможность вставлять текст из буфера обмена или копировать его 
туда. Чтобы обеспечить ввод символов в поле с клавиатуры, необхо- 
димо щелкнуть по полю ввода мышкой или ввести курсор в поле 
с помощью клавиши Tab (Shift+Tab); 


° прокручиваемый список (scrolling list), который содержит те или 
иные элементы, в частности папки (каталоги), файлы, в определенной 
последовательности. Если элементов много, справа н/или снизу CNH- 
сок имеет полосы прокрутки, которые дают возможность просмотреть 
весь список. Для выделения элемента из списка, щелкните по нему 
мышкой. Можно также использовать клавишу Tab и клавиши со 
стрелками; 


SETO J] раскрывающийся список (drop-down 

Dossenmmnerramson m |156), содержащий набор элементов. Из 
этого набора Snapa единственный элемент, который оказывает- 
ся видимым. Для выбора другого элемента нужно щелкнуть мышкой 
по кнопке в правой части списка. Когда список откроется, щелкните 
по выбранному элементу. Возможно, придется использовать приемы 
прокрутки. Как и в прокручиваемом списке, искать элемент можно по 
первой букве. Чтобы отменить действия по выделению другого эле- 
мента, щелкните мышкой вне зоны раскрывшегося списка или на- 
жмите клавишу Esc. 

Следует обратить внимание, что в диалоговых окнах выбора файлов 
(см. рис. 1.2), открытия файла Open file to edit/view (Открыть файл 
для редактирования или просмотра), сохранения файла Save as, загруз- 
ки файла Load lisp file, создания нового проекта New project... и Apy- 
гих в правой части под строкой заголовка имеются следующие кнопки: 
El на один уровень вверх (Up One Level) — для перехода в каталог на 

один уровень выше; 
ZA обзор рабочего стола (View Desktop) — для показа программ Ha рабо- 
чем столе; 


ВЕ] создание новой папки (New Folder) — для создания новой папки; 


zE] список (List) — для представления всех папок и файлов текущей пап- 
e-o- 
КИ; 
таблица (Table) - для развернутого представления всех папок и фай- 
лов текущей папки (каталога) с указанием размера, типа и даты пос- 
леднего изменения. 

Далее рассмотрим падающие меню для каждого пункта главного меню. 
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Рис. 1.5. Подающие меню работы с файлами [Ее] при активном окне текстового редактора 


[слева] и при активном окне консоли Visual LISP (спрова) 


1.2.1. Падающее меню работы с файлами: File 


Выбор пункта File (Файл) главного меню или нажатие комбинации кла- 


BHII Alt+F вызывает падающее менго работы с файлами (рис. 1.5). 


Падающее меню работы с файлами включает большой набор пунктов: 

e New File (Новый файл) или нажатие комбинации клавиш СЫ1+М 
обеспечивает создание нового файла с помощью диалогового окна 
<Untitled-0> (Без названия-0) (рис. 1.6). Номер окна без названия 
определяется числом созданных, но еще не названных файлов. Нуме- 


рация еще не названных окон начинается с 0. 


Если щелкпуть по значку, расположенному слева от названия окна, по- 


явится контекстное менто (рис. 1.6). Оно включает ряд пунктов: 


e Восстановить (Restore) — восстанавливает размер окна до прежнего 


размера; 
e Переместить (Move) — перемещает окно в другое место; 


e Размер (Size) — изменяет размер окна. При выборе этого пункта yka- 
затель мышки изменит свою форму. Нажмите клавишу 4 , Т, < или >, 
чтобы указать границу окна, которую вы намереваетесь переместить. 
Переместите границу, двигая мышку либо нажимая ту же или проти- 
воположную ей клавишу. Завершите операцию щелчком мышки или 


нажатием клавиши Enter (Ввод); 
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Рис. 1.6. Окно для создания нового файпа 


e Свернуть (Minimize) — сворачивает окно до минимальных размеров 
(уменьшенный размер заголовка окна); 

e Развернуть (Maximize) — разворачивает нормальное или свернутое 
окно до максимально возможных размеров; 

e Закрыть (Close) — закрывает окно; 

e Следующее (Next) — обеспечивает переход к следующему окну. Это 
же действие может быть выполнено путем нажатия комбинации кла- 
виш CtrÌ+F6. 

В правой части строки заголовка текстового окна имеются три кнопки. 
Первая и вторая кнопки (Свернуть и Развернуть) позволяют изменять 
размер окна. правая (Закрыть), закрывает окно; 

e Open File... (Открыть файл) или нажатие комбинации клавиш Ctri+O 

вызывает диалоговое окно открытия файла Open File to edit/view 
(Открыть файл для редактированния/просмотра) (puc. 1.7). Достаточ- 
но найти нужный файл, дважды щелкнуть по нему мышкой, и на экра- 
не появится окно для работы с этим файлом. 
Reopen ( Переоткрыть) — вызывает подменю, содержащее список фай- 
лов, с которыми ранее работал пользователь (см. пример на рис. 1.8). 
Если щелкнуть по любому из файлов списка, откроется окно тексто- 
вого редактора с этим файлом. Последний пункт подменго, если щелк- 
нуть по нему мышкой, может вызвать диалоговое окно Choose file to 
edit (Выбор файла для редактирования) с еще большим списком фай- 
лов, с которыми ранее работал пользователь. В данном диалоговом 
окне можно удалить или открыть любой из файлов списка; 
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Рис. 1.7. Диологовое окно открытия файла. 


Save (Сохранить) или нажатие комби- 
нации клавиш Ctri+S сохраняет файл 
под тем же именем; 

Save As (Сохранить как) или нажатие 
комбинации клавиши Ctri+Alt+S вызы- 
вает диалоговое окно Save as (Сохра- 
нить как), с помощью которого можно 
сохранить файл под новым именем 
и/или в новом месте, в другом формате; 
Save АП (Сохранить все), если он досту- 
пен, или нажатие комбинации клавиш 
Alt+Shift+S сохраняет все открытые 
файлы; 


1 C/ALISPADD_N_L.LSP 

2 C/AUSP/COPY_L.LSP 

3 CJALISP/DIF.LSP 

4 C/ALISP/DJON.LSP 

5 C/ALISP/EARLY_A_B_LLSP 
6 CZALISP/GCL. LSP. 

? C/AUSP/KOTTEDJLSP 

8 C/AUSP/KOTTEDJ.MKP 
9 C/ALISP/POSL1.LSP 

10 CZALISP/PRIVET2W LSP 
More files... 


Рис. 1.8. Список не закрытых файлов 


Close (Закрыть) или нажатие комбинации клавии С@1+Е4 закрывает 


активное окно, то есть окно текущей программы (файла): 


Revert (Возвратить) возвращает содержимое буфера в файл; 
Close АП (Закрыть все) закрывает все окна текстового редактора; 
Print... (Печать) или нажатие комбинации клавиш Ctrl+P вызывает 


диалоговое окно печати для ввода имени принтера, числа копий и ряда 


других установок (рис. 1.9); 


- F -o i а = ыы — => == —_--. <->: _-- а аа 
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Рис. 1.9. Диалоговое окно печати 


Настройка принтера 


Принтер Aaa nS o a 


Nma: Ersson LX-100 


Состояние: Выбран по умолчанию; Готов 
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Рис. 1.10. Диалоговое окно настройки принтера 
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e Print Setup... (Настройка принтера) вызывает диалоговое окно Ha- 
стройки принтера для установки размера бумаги и ввода ряда других 
установок (рис. 1.10); | 

e Make Application (Создать приложе- PPNewApoliceton Wizarda › 

HHE) или нажатие комбинации клавиш ' -Ẹxyisting Application Wizard... 

Ctrl+Shift+M выводит следующий спи- ; Виа Application from Маке File 

сок Мастеров приложений (рис. 1.11): 

e New Application Wizard... (Мастер 
нового приложения) вызывает диало- 
говое окно для создания нового приложения с помощью Мастера; 

e Existing Application Wizard... (Мастер существующего приложения) 
вызывает диалоговое окно для изменения существующего приложе- 
ния с помощью Мастера; 

e Build Application from Make File (Создать приложение из таке-фай- 
ла) предназначено для построения приложения из файла с расшире- 
нием МКР; 

e Load File... (Загрузить файл...) или нажатие комбинации клавиш 
Ctrl+Shift+L вызывает диалоговое окно загрузки файлов Load lisp file 
(Загрузить lisp файл) (рис. 1.12); 

e Toggle Console Log... (Установить/удалить файл регистрации консо- 
ли) вызывает дналоговое окпо для создания файла регистрации Open 
Log (Открыть файл регистрации) (рис. 1.13): 


-7s 


Рис. 1.11. Список Мастеров 
приложений 
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Рис. 1.12. Диалоговое окно загрузки файла 
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Рис. 1.13. Открытие диалогового окна файла регистрации 


° Exit (Выйти) или нажатие комбина- [перу 
ции клавиш Alt+Ọ вызывает диало- 
говое окно Exiting Visual LISP... 
(Выход из Visual LISP) для выхода 
из системы Visual LISP (рис. 1.14). 

В диалоговом окне появляется во- 

прос Really want to quit session? 
(Действительно ли вы хотите выйти из Рис. 1.14. Диалоговое окно выхода 
Visual LISP?). Если щелкнуть мышкой из системы Visual LISP 

по кнопке Yes (Да), то сеанс работы с Visual LISP завершится. 


1.2.2. Падающее меню редактирования: Edit 


Выбор пункта Edit (Редактирование) главного меню или нажатие 
комбинации клавиш АЁ+Е вызывает падающее меню редактирования 
(рис. 1.15). 
Падающее меню редактирования включает болышой набор пунктов: 
e Undo (Отменить) или нажатие комбинации клавиш CtrÌl+Z отменяет 
последнюю из выполненных команд; 
e Redo (Вернуть) или нажатие комбинации клавиш Ctri+Alt+Z дает 
возможность повторно выполнить последнюю из отмененных команд; 
e Cut (Вырезать) или нажатие комбинации клавиш СИ1+Х удаляет Bbi- 
деленный фрагмент текста и помещает его в буфер обмена; 
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Рис. 1.15. Подающее меню редактирования Edit при активном окне текстового редактора 
[слева] и при активном окне консоли Visual LISP (справа) 


e Copy (Копировать) HJIH нажатие комбинации клавиш Ctrl+C копиру- 
ет выделенный фрагмент текста и помещает его в буфер обмена; 

e Paste (Вставить) или нажатие комбинации клавиш С@1+У вставляет 
содержимое буфера обмена в текущую позицию курсора в окне тексто- 
вого редактора или окне консоли; 

e Delete (Удалить) или нажатие клавиши Del удаляет выделенный 
фрагмент программы; 

e Clear Console Window (Очистить окно консоли) очищает окно KOI- 
соли, удаляет всю имеющуюся в окне информацию; 

e Clear Console Input (Очистить ввод с консоли) или нажатие клавиии! 
Esc очищает введенную пользователем информацию в окне консоли; 

e Keep but Ignore Input (Сохранить, но игнорировать ввод) осуществ- 
ляет сохранение ранее введенной информации и переход в состояние 
ожидания ввода данпых; | 

e Parentheses Matching (Соответствие круглых скобок) или нажатие 
комбинации клавиш СИ1+М определяет соответствие круглых скобок. 
При выборе этой команды появляется 


следующий список возможных действий Match Forward Ctr- 
по поиску круглых скобок (рис. 1.16): | Match Backward Син 
e Match Forward (Поиск закрывающей >electForward. COtri-Shift-] 


скобки) или нажатие комбинации кла- select Backward Ctrl-Shift-{ 


виш Ctrl+] осуществляет поиск соответ- Рис. 1.16. Список команд для 
ствующей закрывающей круглой скобки; поиска круглых скобок 
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e Match Backward (Поиск открывающей скобки) или нажатие комби- 
нации клавиш СИ1+[ осуществляет поиск соответствующей откры- 
вающей круглой скобки; 

e Select Forward (Выделение выражения после скобки) или нажатие 
комбинации клавиш Си1+5 4+] производит выделение выражения, 
которое начинается с указанной открывающей скобки; 

e Select Backward (Выделение выражения до скобки) или нажатие 
комбинации клавиш Ctrl+Shift+[ производит выделение выражения, 
которое заканчивается указанной закрывающей скобкой; 

e Console History UP (Хронология сообщений консоли вверх) или Ha- 
жатие клавиши Tab вызывает отображение хронологии сообщений до 
текущего сообщения; 

e Console History Down (Хронология сообщений консоли вниз) или 
нажатие комбинации клавиш Shift+Tab вызывает отображение хроно- 
логии сообщений после текущего сообщения; 

e Extra Commands (Особые команды) или нажатне комбинации клавиш 
Ctrl +E позволяет вызвать список особых команд. 


1.2.3. Падающее меню поиска: Search 


Выбор пункта Search (Поиск) главного меню или нажатие комбинации 
клавиш Alt+S вызывает падающее меню поиска (рис. 1.17). 

Меню, представленное на рис. 1.17, содержит следующие пункты: 

e Find... (Найти...) или нажатие комбинации клавиш Ctrl+F выводит 
диалоговое окно с текстовым потем Find What: (Найти что); 

e Replace... (Заменить...) или нажатие комбинации клавиш СЫ1+Н вы- 
водит диалоговое окно Find (Найти), в котором имеется два тексто- 
вых поля Find What (Найти что) и Replace with: (Заменить на); 

e Find/Replace Next (Найти/ 


Заменить следующее) или js Eind.: i AaOr As 
. pa F3 Replace... Ctrl-H 
нажатие клавиши нахо AILE Мех в 


дит в программе старое соче- 
тание символов и заменяет ~ Complete Word Бу Match `: - СИ-Зрасв 
его на новое; (Complete Word Бу Apropos < Ctrl-Shif-Space 

e Complete Word by Match И ру 
(Заверигить слово в полном И First message Увы: 
соответствии) или нажатие ; Ме бтеззеце "ЗЕМ 
комбинации клавиш Ctr Г ЕР ЕО 
Space дописывает имена 1 Ен Ее 
встроенных Функции, сис- ИЕ Е. 
темных переменных, Рис. 1.17. Подающее меню поиска Search 
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e Complete Word Бу Apropos (Поиск слова по фрагменту) или нажатие 
комбинации клавиш Ctri+Shift+Space вызывает список имен функ- 
ций, системных переменных, содержащих введенный фрагмент. При 
щелчке по нужному имени это имя заменяет введенный фрагмент; 

e Bookmarks (Установить закладки) выводит всплывающее меню для 
установки закладок; | 

e Со to Line... (Идти к строке...) или нажатие комбинации клавиш 
Ctrl+G выводит диалоговое окно Enter line number (йхпит) ‘Введи 
номер строки) для установки номера строки; 

e Go to Last Edited (Идти к последнему месту редактирования) или Ha- 
KATHE комбинации клавиш Си1+5$ЫЁ+С устанавливает курсор в Mec- 
те последнего редактирования. 


1.2.4. Падающее меню просмотра: View 


Выбор пункта View (Просмотр) главного меню или нажатие комбинации 
клавиш А+У вызывает падающее меню просмотра (рис. 1.18). 

Меню, представленное на рис. 1.18,’содержит следующие пункты: 

e [Inspect (Проверить) или нажатие комбинации клавиш Ctri+Shift+I 
вызывает диалоговое окно Enter expression to inspect (Введите выра- 
жение для проверки) для контроля за правильностью работы прове- 
ряемого выражения; 

e Trace Stack (Стек трассировки) или нажатие комбинации клавиш | 
Сы1+5ЫЕ+Т вызывает окно Trace Stack с результатами трассировки 
стека; 

e Error Trace (Трассировка ошибки) или нажатие комбинации клавиш: 
Ctrl+Shift+R вызывает окно Error 


trace с результатами трассировки inspeti _ Ctrl-ShifH 
ошибки; : Trace Stack | Ctr-Shift-T 

e Symbol Service (Обслуживание | Error Trace а 
символов) или нажатие комбина- ВоВе E Me 
ции клавиш Ctril+Shift+S вызыва- —— | ие ЗАРЯ 
ет диалоговое окно Enter symbol  - \“9 Window Ctr-ShiftW 
name (Введите имя символа) для ; £P'OPOs Window.. Ctrl-Shift-A 
обслуживания символов; ООО Arshit 

e Watch Window (Окно наблюде- — ARN ео iai ИЯ 
ний) или нажатие комбинации кла- -MSP Console = Е 
BHW CtrÌl+Shift+W вызывает окно “Browse Drawing ee e POETARI, p 


maem 


Watch (Наблюдения) для просмот- к 
u ooarsS... .. 
ра текущих значений символов: И, A ВОРОВ. 
° Apropos Window (Окно поиска Puc. 1.18. Падающее меню просмотра 
по фрагменту) или нажатие View 
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комбинации клавиш Ctri+Shift+A открывает диалоговое окно 
Apropos... (Поиск по фрагменту) для настройки системы понска сло- 
ва по фрагменту; 

e LISP Console (Консоль LISP) или нажатие клавиши F6 вызывает 
окно Visual LISP Console (Окно консоли Visual LISP); 

e Browse Drawing Database (Обзор базы данных рисунков) вызывает KO- 
манды просмотра базы данных рисунков, всех объектов, таблиц и т.д.; 

e Toolbars... (Панели инструментов) вызывает диалоговое окно уста- 
новки необходимых панелей инструментов. 


1.2.5. Падающее меню управления проектом: Project 


Выбор пункта Project главного меню 
или нажатие комбинации клавиш 
Alt+P вызывают падающее меню 
управления проектом (рис. 1.19). 
Меню. представленное на рис. 1.19, 


New Project.. | 
Open Project ^^ СИ-ЗЫЮР. 
Ciose Project 


Project Properties.. 


включает в себя следующие пункты: оз Project FAS File | 
e New Project (Новый проект) обес- Load Рес source Files 
печивает создание нового проекта, Suild Project FAS: 
e Open Project (Открыть проект) Rebuild Frojent FAS 
или нажатие комбинации клавиш 
Ctrl+Shift+P обеспечивает откры- Рис. 1.19. Подоющее меню управления 
тие существующего проекта. проектом Project 


1.2.6. Падающее меню отладки: Debug 


Выбор пункта Debug главного меню или нажатие комбинации клавиш 
Alt+D вызывает падающее меню отладки (рис. 1.20). 

Меню. представленное на рис. 1.20, содержит следующие пункты: 

e Add Watch (Добавить наблюдение) вызывает диалоговое окно Enter 
expression to watch (Введите выражение для наблюдений) значений 
введенного выражения; 

e Watch Last Evaluation (Наблюдение последних вычислений) вызыва- 
ет окно Watch (Наблюдения) для просмотра последних вычислений; 

e Trace Command (Трассировка команд) включает или выключает трас- 
сировку команд; 

e Stop Once (Остановка сразу) включает или выключает немедленную 
остановку вычислений; 

e Break Оп Error (Прерывание на ошибке) включает или выключает 
прерывание выполнения при обнаружении ошибки; 

e Animate (Оживить) включает или выключает выполнение вычислений. 
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1.2.7. Падающее меню средств 
управления системой: Tools 


Выбор пункта Tools (Инструменты) rnas- 
ного меню или нажатие комбинации кла- 
BHII Alt+T вызывает падающее меню 
средств управления системой (рис. 1.21). 

В меню представлены следующие пункты: 

e Load Selection (Загрузить выделен- 
ное) или нажатие комбинации клавиш 
Ctrl+Shift+E позволяет загрузить вы- 
деленное выражение на выполнение 
и выполнить его; 

e Load Text in Editor (Загрузить текст из 
окна редактора) или нажатие комби- 
нации клавиш Ctri+Alt+E позволяет 
загрузить текст из окна текстового ре- 
дактора на исполнение; 

e Check Selection (Проверить выделен- 
ное) или нажатие комбинации клавиш 
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“Clear All Breakpoints С-З 


= Animate 


Laa aaee А — 5 я у а e og rp 
АХ. "СЕР | Inte 33 ae r а ЕВ. paga 
; . Sép Обе Ehia 


step gut s ; То СИ-ЕНИЕЕЕ - 
Сопипие К таре á E-F 52} 


: sS ‹ | j г 
Beset to Тор Е Ctri-P. 
-Odit Cirent Leve = i Се 


Аааа. о СИМ 
~ Watch Last Evaluation 
УД 

я > 


‚_ Toggle Breakpoint REE a 


Last Break Source. +: Ctri-F9 


у Trace Command 
Stop Once 
Break On Error 


ÀAbotEysaluaton | 


Рис. 1.20. Подоющее меню 
отладки Debug 


Ctrl+Shift+C позволяет проверить и загрузить выделенное выражение 


на выполнение и выполнить его; 


e Check Text in Editor (Проверить текст в окне редактора) или нажатие 


| Load.: Selection. У Ctrl-Shift-E 
-~ Load Text in Editor < e CtrFAItE. 
| ‘Check Selecion Orl-Shift e: 
-Check Text in Editor CtrAItC — AutoCAD Mode Ctrl-Shift-C 
E Formet мое in Selection? Cti ShiftF Window Attributes | » 
l Format AutoLISP in Editor. СИРАКЕ Environment Options | h 
k Interface Tools => pAr > Save Settings 
L Window Attributes › 
L Environment Options и 


-a Save Settings 


Рис. 1.21. Подающее меню Tools при активном окне текстового редактора (слева) 
и при активном окне консоли Visual LISP (спрова) 
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комбинации клавиш Ctri+tAlt+C позво- © Syni Colonng.. 

ляет проверить и загрузить текст из = Configure Current... 

окна текстового редактора на исполне- 2a en a maa 

ние; - 
e AutoCAD Mode (Режим AutoCAD) 

или нажатие ‘комбинации клавиш 

Ctri+Shift+C позволяет переключиться Рис. 1.22. Список параметров окна 


urent Yindow to Erototype 


etC 
Eet All Yindotws to Prototype 


в режим работы AutoCAD; Visual LISP 

e Window Attributes (Параметры окна) 
позволяет изменить следующие napa- General Options... 
метры окна Visual LISP (рис. 1.22): AutoLISP Format Options... 
e Configure Current... (Текущая конфи- Page Setup Options... 


гурация) обеспечивает вызов диалого- 
вого окна установки текущей конфи- 
гурации окна Visual LISP; 
e Font... (Шрифты...) обеспечивает вызов дналогового окна выбора 
шрифта окна Visual LISP; 
e Environment Options (Режимы среды) позволяет установить режимы 
работы среды Visual LISP (рис. 1.23); 
e Save Setting (Сохранить установки) обеспечивает сохранение устано- 
вок рабочей среды Visual LISP. 


Рис. 1.23. Список режимов 
среды 


1.2.8. Падающее меню управления окнами: Window 


Visual LISP позволяет организовать работу с несколькими окнами одновре- 
менно. Выбор пункта Window (Окно) главного меню или нажатие комби- 


нации клавиш Alt+W вызывают падающее т. ТЕТ, 


меню управления работой с несколькими OK- Tile Vertically 
нами (рис. 1.24). Cascade ›. 
Меню, представленное на рис. 1.24, включа- О ОТ 
ет в себя следующие пункты: ЕН: | 
e Tile Horizontally (Горизонтальные nogo- —— 
кна) обеспечивает горизонтальное разме- = ‘сое Al 
щение окон, которые располагаются одно - Arengeleons = 
под другим сверху вниз. Всем окнам отво- Close Windows ь 
дятся равные части рабочего стола; | АСлые АЛОСАО 


e Tile Vertically (Вертикальные подокна) 
обеспечивает вертикальное расположение 
окон. Окна располагаются слева направо 
и им отводятся равные части рабочего стола; Рис. 1.24. Падоющее меню 

e Cascade (Каскад) обеспечивает каскадное управления окнами Window 


~- {Trace 
‚у 2 Visual USP Console 
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расположение окон. Окна располагаются друг за другом уступом так, 
что заголовки всех окон остаются видны. Активное окно размещается 
поверх остальных; 

. Zoom (Масштабировать) обеспечивает уменьшение/увеличение раз- 
мера отображения активного окна; 

e Organize (Организовать) определяет режим упорядочения расположе- 
ния окон, работает как переключатель; 

e Iconize АЙ (Минимизировать все) минимизирует все открытые окна 
Visual LISP; $ 

e Arrange Icons (Упорядочить минимизированные окна) упорядочива- 
ет все минимизированные окна Visual LISP - иконки; 

e Close Windows (Закрыть окна) обеспечивает закрытие окон: All (Все) 
или Inspectors (Проверки); 

e Activate AutoCAD (Активизировать AutoCAD) активизирует CHCTE- 
My AutoCAD. 

На рабочем столе Visual LISP могут быть представлены несколько OT- 

крытых окон, например, окно трассы Trace, окно консоли Visual LISP 


Console и несколько окон текстового редактора. 


1.2.9. Падающее меню помощи: Нер 


Выбор пункта Help главного меню или нажа- (yiu USP Heis Topics = 
тие комбинации клавиш АЁ+Н вызывает пада- : 
ющее меню помощи (рис. 1.25). TATE E 

Падающее меню помощи содержит следую- ° About Visual LISP 
щие пункты: 

e Visual LISP Help Topics оо CHC- 
тема) или нажатие клавиши F1 обеспечи- 
вает вызов справочной системы по Visual LISP (рис. 1.26); 

° Tutorial (Обучающая программа) вызывает краткий учебник по Visual 
LISP; 

e About Visual LISP (О программе Visual LISP) обеспечивает доголни- 
тельной информацией no Visual LISP. 

Диалоговое окно справочной системы по Visual LISP имеет три заклад- 

ки: Содержание, Указатель и Поиск. 

В окне Содержание представлен список названий разделов справочной 
системы Visual LISP. Щелкая мышкой по названиям того или иного раз- 
дела, можно получить исчерпывающую информацию по Visual LISP 

В окне Указатель содержится список функций и терминов. Для получе- 
ния нужной информации введите первые буквы нужной функции в первом 
поле справочной системы или выберите ее с помощью полосы прокрутки. 


Tutorial 


Рис. 1.25. Падающее меню 
помощи Нер 


2 — 1278 
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Справочная система: Visual ИЗР(ТМ) юг AutoCAD Release 14 Guide 2? хр 


Содержание Указатель | Помск | 


1 Введите первые буквы нужного слова. 


2 Быберите термин или фразу и нажмите кнопку "Показать". 


- (зибтасвап) 
ynte Some Соае! 
= ímukipiicatien) 
"emor 
‚ УУУАсОБ-еа ог 
РЕ сцогтеа ог 
У БипКеггеа@ ог 
VLR-Objectreactor 
? (division) 
{= (not equal to} 
~ (bitmse NOT) 
+ (agzton) 
< less than) 
<= (less than or equal to) 
= (equal to) 
> (greater than) >| 


Показать Печать. | Отмена | 


Рис. 1.26. Справочная система для Visuol LISP 


Окно Поиск предназначено для оперативного поиска нужной информации. 
Чтобы получить необходимые сведения, достаточно ввести в верхнем поле ис- 
комый термин, в нижнем поле выбрать вариант использования этого терми- 
на (для сужения диапазона поиска) и щелкнуть по кнопке Показать. 


1.3. Панели инструментов Visual LISP 


Для облегчения работы со средой Visual LISP можно вывести на экран HH- 
струментальные панели (рис. 1.27). Вывести или отключить требуемые 
панели инструментов можно с помощью пункта Toolbars... (Панели инст- 
рументов) падающего меню View (Просмотр), который вызывает диало- 
говое окно выбора панелей инструментов Toolbars (рис. 1.28). 
Диалоговое окно обеспечивает управление отображением Ha экране сле- 
дующих панелей инструментов: Standard (Стандартная), Search (Поиск), 


Панели инструментов Visual LISP 


35 


(U Visual LISP for AutoCAD Release 14 


File Edit Search View Project Debug. Tools Window Help 
4+4“ по ФДхФОм 
АЕ 


GE че |саг 
== =... ыы = 5 


ин |->. КОТТЕО ЕР loading... 
||: Er Пример вызова Функции (KOTTEDJ $0 KR UXY UX) 


ł 3 


/ © 


M ncc YATTEN I 


MEME 


"0, 0” 


-E (KOTTEDJ (LIST (LIST 20 20 © 50 30 40) 

; | (LIST 30 20 13.10 3 13) 

| (LIST 50 20 13 103 13) | 
(LIST 55 50 O 12 -3 28)) 60 49 


! | ЕЕ MEIE M IEICE JE M JE M I€ M I€ K JEE KEH M KIMM HK KHHKK HK K KKK KKI 


KR UXY UX) 


"300.400" “Z0OO0OM“ “A“) > 
| ‚| 


| View: C:/ALISP/KOTTEDJ.LSP_ {Ацмо5РА\А ВО 


IL.00015 C 00015 


Рис. 1.27. Главное окно Visuol LISP с инструментальными панелями 


Tools (Инструменты), Debug (Отладка), View (Просмотр). Для того что- 
бы вывести ту или иную панель на экран, необходимо щелчком мышки 
включить/выключить соответствующие флажки, после чего нажать KHON- 
ку Apply (Применить). Если щелкнуть по кнопке Show all (Показать все), 
в главном окне Visual LISP появятся все инструментальные панели. 

Для удаления инструментальных панелей из главного окиа Visual LISP 
необходимо нажать кнопку Hide all (Скрыть все), а затем кнопку Close 


(Закрыть). 

При перемещении указателя мышки по 
значкам (пиктограммам) инструменталь- 
ных панелей высвечивается назначение 
каждой кнопки панели, а в строке состоя- 
ния в самом низу главного окна Visual 
LISP появляется более подробиое объяс- 
нение. С каждой кнопкой связан опреде- 
ленный пункт меню, а рисунок на этой 
кнопке передает суть этого пункта меню. 
Вызывать пункт меню с помощью кнопки 
гораздо быстрее, чем выбирать в меню. 


2 


(Ji Toolbars 


г балае Hide all 
|I Search Show all | 


Г Tools 


Apply 
B Debug 


1 


Г Меж Close | 


Рис. 1.28. Дналоговое окно выбора 
панелей инструментов 
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1.3.1. Панель инструментов просмотра: View 


Панель инструментов просмотра включает восемь основных кнопок 
(рис. 1.29). 


|0 ФбхоФО = 


Рис. 1.29. Панель инструментов просмотра View 


На панели инструментов View (Просмотр) размещаются следующие 
КНОПКИ: 


—.-_-_- 


! Activate AutoCAD (Активизировать систему AutoCAD). Описание 
Í в строке состояний — Activate AutoCAD (Активизируется AutoCAD); 


Select window (Выбрать окно). Описание в строке состояний — Select 
Visual LISP window from list (Выбор окна Visual LISP из списка); 
LISP console (Выбрать консоль AutoLISP). Описание в строке состо- 
яний — Activate Visual LISP console / bring console to top (Активизи- 
рование Visual LISP консоли / перенесение консоли наверх); 
Inspect (Проверить). Описание в строке состояний — Open ап 
inspector window and enter expression (Открытие окна просмотра для 
ввода выражения); 

Тгасе (Трассировка ошибки). Описание в строке состояний — Ореп 
the inspector window Юг last error trace stack (Открытие окна просмот- 
ра последней ошибки трассы стека); 

Symbol service (Обслужить символы). Описание в строке состоя- 
ний — Activate the symbol service window (Активизация окна обслужи- 
вания символов); 

Apropos (Найти слово по фрагменту). Описание в строке состояний — 
Open the apropos window for assistance оп LISP expressions (Открытие 
окна поиска слова по фрагменту для помощи Е5Р-выражениям); 
Watch window (Открыть окно наблюдений). Описание в строке co- 
стояний — Open the watch window (Открытие окна наблюдений). 


1.3.2. Панель инструментов: Tools 


Панель инструментов включает девять кнопок (рис. 1.30). 


осу ия ее 


Рис. 1.30. Нанель инструментов Тооб 
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На панели инструментов Tools (Инструменты) размещаются следую- 
щие кнопки: 

L ii Load activate edit window (Загрузить программу из активного окна 

SX редактирования). Описание в строке состояний — Load and evaluate 
the code in the active editor window (Загрузка и выполнение програм- 
мы в активном окне редактора); 

вы | Load selection (Загрузить выделенное выражение). Описание в стро- 
< ке состояний — Load and evaluate the selected text (Загрузка и выпол- 
нение выделенного текста); 

КУ | СБесК edit window (Проверить синтаксис программы в активномь 
м“ окне редактирования). Описание в строке состояний — Perform syntax 
checking of AutoLISP code in the active editor window (Выполнение 
синтаксической проверки программы AutoLISP в активном окне pe- 
_ дактора); 

3 Check selection (Проверить синтаксис выделенного). Описание 

RVA 5 строке состояний — Perform syntax checking of selected AutoLISP 
code in edit window (Выполнение проверки синтаксиса выделенной 
программы AutoLISP в окне редактирования); 

[a] Format edit window (Отформатировать программу в активном окне 

S редактирования). Описание в строке состояний — Format AutoLISP 
code in the active editor window (Форматирование программы 
AutoLISP в активном окне редактора); 

та | Format selection (Отформатировать выделенный фрагмент). Описа- 
ща ние в строке состояний — Format AutoLISP code in the current selection 
_ (Форматирование программы AutoLISP в текущем выборе); 

` == Comment Моск (Закомментировать блок). Описание в строке состоя- 

CEA ний — Comment out the selection block of text (Комментирование выб- 
ранного блока текста); 

Mo Uncomment block (Разкомментировать блок). Описание в строке co- 

Lai стояний — Uncomment the selection block of text (Отмена коммента- 
риев у выбранного блока текста); 

Help (Помощь). Описание в строке состояний — Visual LISP Help 
м1 (Помощь Visual LISP). 


1.3.3. Панель инструментов отладки: Debug 


Панель инструментов отладки включает девять кнопок и один индикатор 
в виде кнопки (последний на панели PAONPYMENTOR) (рик. Loly 


| 2 мо 


Рис. 1.31. Панель инструментов отладки Debug 
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На индикаторе изображены круглые скобки и положение курсора. На 
индикаторе курсор может стоять перед круглыми скобками; это означает, 
что процесс отладки остановлен перед выражением Stopped before (Оста- 
новлен перед) или после — Stopped after (Остановлен после). 

На панели инструментов Debug (Отладка) размещаются следующие 
кнопки: 


© 


(5) 


Step into (Шагнуть внутрь выражения). Описание в строке состоя- 


- ний — Step into the nested expression (Hanny внутрь вложенного 


выражения); 

Step over (Шагнуть с обходом). Описание в строке состояний — Step 
over the next expression (Шагнуть до следующего выражения); 

Step out (Шагнуть вне выражения). Описание в строке состояний — 
Step out to the end of the current function (Шагнуть вне к концу теку- 
щей функции); 

Continue (Продолжить отладку). Описание в строке состояний — 
Continue то the next breakpoint ог to the end (Продолжить до следую- 
щей точки прерывания или до конца); 

Quit (Выйти из текущего уровня отладки). Описание в строке состо- 
яний (внизу окна) — Quit the current debug level (Выход из текущего 
уровня отладки); 

Reset (Вернуться на верхний уровень). Описание в строке состоя- 
ний — Reset to the top level (Вернуться на верхний уровень); 

Toggle breakpoint (Установить/удалить точку прерывания). Описа- 
ние в строке состояний — Add ог remove а breakpoint at {Бе current 
location (Добавление или удаление точек прерываний в текущем NO- 
ложении); 

Add watch (Добавить выражение для просмотра). Описание в строке 
состояний — Add ап expression to watch (Добавить выражение для 
просмотра); | 

Last break (Последнее прерывание). Описание в строке состояний — 
Show last break source (Показать источник последнего прерывания). 


1.3.4. Панель инструментов поиска: Search 


Панель инструментов поиска включает семь кнопок и раскрывающийся 
список с текстовым полем (рис. 1.32). 
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Рис. 1.32. Панель инструментов поиска Search 


ВУ 


Текстовый редактор Visual LISP 


В текстовом поле раскрывающегося списка вводятся символы для по- 
иска их в активном окне текстового редактора или окне консоли. Щелч- 
ком по стрелке, направленной вниз, можно раскрыть список и выбрать 
в нем ранее введенные символы. | 

На панели инструментов Search (Поиск) размещаются следующие 
кнопки: | 
28. Find (Найти). Описание в строке состояний — Search for text (Поиск 

текста). Точнее, поиск введенного текста в текстовом поле диалогового 
окна Find, которое появляется после щелчка по кнопке Find (Найти); 
а >| Replace (Заменить). Описание в строке состояний — Search Юг text 
nta, replace it with new text (Поиск введенного текста и замена его на HO- 
вый текст); 
Fr i Find toolbars string (Найти строку текстового поля). Описание в стро- 
sastu ке состояний — Find the current string in the toolbars (Найти текущую 
строку текстового поля); 
A Toggle bookmark (Установить/удалить закладку). Описание в строке 
состояний — Add/remove а bookmark at the current position (Добавле- 
ние/удаление закладки на текущей позиции); 
Next bookmark (Перейти к следующей закладке). Описание в строке 
состояний — Move to the next bookmark (Перейти к следующей 3a- 
кладке); 
t Previous bookmark (Перейти к предыдущей закладке). Описание 
: в строке состояний — Move to the previous bookmark (Перейти к npe- 
дыдущей закладке); 
% Clear а] bookmark (Удалить BCC закладки). Описание в строке состо- 
auni — Clear а] bookmark ( Удалить все закладки). 


Информация, отображаемая в строке состояния (в самом низу главного 
окна Visual LISP), изменяется в зависимости от того, какое действие 
в настоящий момент вы выполняете в Visual LISP 

Обратите внимание на минимизнрованнос окно поиска нескольких CHN- 
волов. При запуске это окно информирует о текущем состоянии Visual 
LISP. Кроме того, оно может содержать дополнительную информацию, 
например, об ошибках VLISP во время запуска. 


1.4. Текстовый редактор Visual LISP 


Текстовый редактор Visual LISP предназначен для эффективной разработ- 
ки, проверки и отладки программ Ha AutoLISP. 

Окно текстового редактора вызывается автоматически при открытии 
файла с программой на AutoLISP в диалоговом окне Open file to edit/view 
(Открыть файл для редактирования/просмотра) (см. рис. 1.7). 


Фо 
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Вызвать диалоговое окно открытия файла можно двумя способами: 
° выбрать пункт Open File... (Открыть файл) падающего меню File 
(Файл) (см. рис. 1.5); 

* нажать комбинацию клавиш СИ1+О. 

В диалоговом окне открытия файла необходимо найти соответствую- 
щую папку (каталог) и дважды щелкнуть по ней мышкой. В раскрытой 
папке (каталоге) аналогичным способом следует открыть нужный файл, 
который будет помещен в текстовое окно системы Visual LISP. 

В качестве примера рассмотрим файл DOM.LSP, который содержит npo- 
грамму, имеющую всего одну функцию языка AutoLISP —- (COMMAND...) 
(рис. 1.33). | 

Когда вы вносите изменения в тексте программы в редакторе или добав- 
ляете новый текст, рядом с именем файла в строке состояния появляется 
звездочка (*). Она сохраняется рядом с названием файла до тех пор, пока 
вы не сохраните внесенные изменения либо не закроете файл. 

Следует помнить, что одновременно можно работать только с одним 
файлом в одном окне текстового редактора. Каждый раз при открытии 
файла Visual LISP отображает файл в новом окне текстового редактора. 

Текстовый редактор Visual LISP обеспечивает цветное отображение 
программ. Кроме того, он выполняет синтаксический анализ программ на 
языке AutoLISP и назначает соответствующие цвета различным констан- 
там. именам функций. Это позволяет выявлять синтаксические ошибки до 
выполнения компиляции. 

Текстовый редактор предоставляет возможность форматировать про- 
граммы AutoLISP, тем самым делая их более удобными для чтения. При 
этом можно выбирать различные стили форматирования. 

Программы на языке AutoLISP содержат большое количество круглых 
скобок. Текстовый редактор помогает найти ближайшую закрывающую 
круглую скобку, которая соответствует указанной открывающей скобке. 

Путем высвечивания текстовый редактор Visual LISP позволяет выби- 
рать отдельные фрагменты программы и выполнять их. При этом необяза- 
тельно выходить из текстового редактора и выполнять всю программу 
в целом. Помимо этого, у пользователя есть возможность осуществлять 
поиск слова или выражения, проверять синтаксис отдельных выделенных 
фрагментов программы. 

Текстовый редактор позволяет загрузить программу для последующего 
ее выполнения. В таком случае важно, чтобы окно текстового редактора 
было активным. Если вы не уверены в этом, щелкните мышкой в любом 
месте окна и сделайте его активным. Чтобы загрузить программу, щелкни- 
те мышкой по кнопке Load activate edit window (Загрузить программу из 
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Рис. 1.33. Окно текстового редактора 


активного окна редактирования) или выберите пункт Load Text in Editor 
(Загрузить текст программы из активного окна редактирования) падаю- 
wero меню Tools (Инструменты) главного меню Visual LISP. На экране 
появится сообщение о загрузке программы в окне консоли Visual LISP 
такое как, например, на рис. 1.34. 

Из сообщения, приведенного на рис. 1.34, следует, что загрузка выполнена 
из текстового редактора файла DOM.LSP, который состоит из одной формы 
с указанием имени фаила и каталогов (пути), в которых он находится. 

После загрузки программы ее можно запустить на выполнение из ко- 
мандной строки консоли. Для этого достаточно ввести имя программы 
в круглых скобках и нажать клавишу Enter. 

Во время ввода команд с консоли Visual LISP или выполнения програм- 
мы, загруженной из текстового редактора, можно переключаться межлу 
окнами AutoCAD и Visual LISP. Помимо стандартных методов переклю- 
чения между приложениями Windows, существует еще несколько методов 
переключения между окнами AutoCAD и Visual LISP. 

Если вы находитесь в Visual LISP, используйте пункт Activate 
AutoCAD (Активизировать AutoCAD) падающего меню Window (Окно) 
в главном меню Visual LISP (см. рис. 1.24). 

Допустим, вы находитесь в AutoCAD и хотите вернуться в среду Visual 
LISP. В таком случае введите команду УГЛЕ (Вызов среды Visual LISP) 
в командной строке AutoCAD. 
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Рис. 1.34. Окно консоли Visual LISP 
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Окно консоли Visual LISP служит для отображения диагностических 
сообщений об ошибках в программах AutoLISP и результатах работы MHO- 
гих функций AutoLISP. Например, в окне консоли отображается резуль- 
тат работы функции (PRINC...). 

Для отображения текущего значения переменной AutoLISP в Visual 
LISP достаточно набрать имя переменной в окне консоли и нажать клави- 
wv Enter (Ввод). 

Чтобы выполнить. оценить и просмотреть результаты, выражение 
AutoLISP можно вводить в окне консоли Visual LISP. Если требуется вве- 
сти больше одной строки, то для ввода следующей строки нажмите ком- 
бинацию клавиш Ctrl+Enter. Несколько выражений можно вводить до 
нажатия клавиши Enter (Ввод). 

‚ _ Помните, что V вас есть возможность копировать и передавать текст MEX- 
ду консолью и окном текстового редактора. Большинство команд тексто- 
вого редактора также доступны в окне консоли. 

Нажатием клавиши Tab можно восстановить предыдущую команду, KO- 
торая была введена в окне консоли. Неоднократное нажатие клавиши Tab 
восстанавливает более ранние команды. Если нажать комбинацию клавиш 
Shift+Tab, команды будут восстановлены в обратном направлении. 

С помощью клавиши Tab можно осуществить ассоциативный поиск. 
Если, например, ввести выражение, которое начинается с символов (+, 
а затем нажать клавишу Tab, Visual LISP отыщет последнюю введенную 
команду, которая начинается с символов (+. Чтобы изменить направление 
поиска, следует нажать комбинацию клавиш ЗЫ +Таб. 

Клавиша Esc (Escape — отменить) удаляет любой текст после подсказ- 
ки с консоли. Если нажать комбинацию клавиш Shift+Esc, можно будет 
отказаться от интерпретации текста, введенного с консоли в ответ на под- 
сказку и перейти к следующей подсказке. 

После нажатия правой кнопки мышки или комбинации клавиш 
Shift+F10 в любом месте окна консоли на экране появляются меню команд 
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Visual LISP и опции. Они могут быть использованы для того, например, 
чтобы скопировать и вставить текст в командную строку консоли, найти 
текст или инициализировать Visual LISP. 


1.5. Компилирование программ и выход 
из Visual LISP 


При запуске программы AutoLISP с консоли Visual LISP или npu загруз- 
ке программ из окна текстового редактора Visual LISP компилирует npo- 
грамму и выполняет ее. < 

Visual LISP имеет два компилятора: компилятор с непосредственным _ 
выполнением для быстрого тестирования и отладки новой программы 
(он подобен интерпретатору AutoLISP) и компилятор, который разме- 
щает откомпилированные программы с тем же именем, что и исходные, 
но с расширением FAS. Такие программы могут быть запущены из Visual 
LISP и выполняются быстрее, чем сгенерированные компилятором с He- 
посредственным выполнением. Это позволяет создавать приложения, 
с которыми могут работать другие пользователи. Приложения могут 
быть автономные или сопровождаемые Visual LISP Run-Time Support 
System (ВТУ) (Система поддержки выполнения программ Visual LISP). 
Скомпилированные исполняемые файлы содержат только машинно-орн- 
ентированный код. Исходный текст зашифрован компилятором файла 
Visual LISP. 

Исполняемые файлы, сгенерированные компилятором, часто называют- 
ся «компилированными программами» или $-файлами. 

Visual LISP обеспечивает различные способы запуска и использования 
компилятора файла. Для того чтобы скомпилировать одиночный файл 
LISP используется [.5Р-компилирующая функция. 

Когда приложение состоит из набора файлов AutoLISP, загруженных 
одновременно, используйте интегрированные средства управления проск- 
том Visual LISP для компилирования ваших файлов. Организатор проек- 
та автоматически перетранслирует файлы, которые изменились, обеспечит 
поиск фрагментов программ даже в том случае, если вы не знаете, какой 
файл содержит их, и сможет оптимизировать использование функций, 
а также локальных переменных в компилируемых файлах. 

Чтобы скомпилировать одиночный файл AutoLISP вызовите функцию 
(УЫ$Р-СОМРШЕ...) в ответ на подсказку с консоли Visual LISP: 

(VLISP-COMPILE <'режим> <"имя компилируемого файла"> <["имя 
скомпилированного выходного файла"]>) 
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<‘режим> определяет режим трансляции: 

ST — стандартный режим; 

LSM — режим, который оптимизирует, но не компонует; 

LSA — режим, который оптимизирует и связывает. 

Стандартный режим создает самый простой выходной файл и обычно 

применяется для программ, состоящих из единственного файла. 

Режим с оптимизацией повышает эффективность компилируемых фай- 

лов и применяется в сложных и болыших программах. 

К базисным функциям оптимизации относятся: 

e Link Function (Функция связи), которая вызывается, чтобы создать 
прямые ссылки к компилируемои функции в оттранслированной про- 
грамме и защитить код против функционального переопределения во 
времени выполнения; 

* Drop Function (Функция уменьшения), которая делает оттранслиро- 
ванную программу более безопасной, уменьшает размер программы 
и сокращает время загрузки. 

Например, при компиляции программного файла PRIVET2W.LSP в Visual 

LISP на диске С в папке ALISP вы можете вызвать компилятор с консоли: 
_5$ (VLISP-COMPILE '5Т "C:/ALISP/PRIVET2W.LSP ") 
Если вы опускаете расширение файла с исходной программой, Visual 
LISP добавляет расширение LSP. 

При определении пути в имени файла используйте символ наклонной 

черты вправо (/) или удваивайте наклонную черту влево (\\). 

Выходной (скомпилированный) файл по умолчанию имеет то же имя, 

что и исходный, но расширение FAS. После завершения компиляции NO- 
явится сообщение компилятора в окне Build Output (Создание выходного 


файла) (рис. 1.35). 
Имя выходного файла можно изменять, например: 


(УГТЗЬ-СОМЭТЬЕ '5Т *С:/РЕТУЕТИ.ЬЗР " "C:/PRIVETF.FAS ") 


В ходе трансляции по окончании каждой ее стадии компилятор печа- 
тает название функции и различные сообщения. Первая стадия трансля- 
ции — синтаксическая и лексическая проверка исходного текста. Если 
компилятор находит на этой стадии ошибки, он выдает сообщение и оста- 
навливает процесс трансляции. Когда компилятор встречает выражения, 
которые расцениваются как опасные, он выдает предупреждение. К опас- 
ным выражениям относятся, например, такие, которые переопределяют 
существующие функции AutoLISP или задают новые значения защищен- 


ным символам. 
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Рис. 1.35. Окно сообщений компилятора Build Output 


Если трансляция завершается успешно, как в нашем примере на 
рис. 1.35, в окне Build Output (Создание выходного файла) появляется Ha- 
звание скомпилированного выходного файла. 

Может случиться, что трансляция завершилась с ошибками. В такой си- 
туации исходный текст можно просмотреть и отредактировать. Для этого 
необходимо дважды нажать на сообщение об ошибке в окне Build Output. 

Чтобы загрузить и выполнить компилируемую программу, предстоит 
вначале загрузить ее, а затем запустить на выполнение. 

Для загрузки программы необходимо ввести функцию (LOAD...) после 
подсказки с консоли Visual LISP. 


_$ (LOAD "С: /РЕТУЕТИ.ЕА$ ") 


Если вы не укажете расширение файла FAS, Visual LISP не забудет cae- 
лать это сам. 

Загрузить программу можно также, если выбрать пункт Load File (За- 
грузить файл) падающего меню File (Файл) главного меню Visual LISP 
На экране появится диалоговое окно Load lisp file (Загрузить lisp файлы). 
В поле Тип файлов (Files of type) обязательно выберите пункт Compiled 
AutoLISP Files (Скомпилированные файлы AutoLISP), иначе Visual LISP 
перечислит только LSP файлы. 

Запустить программу на выполнение можно так же, как и программу. 
загруженную из окна текстового редактора. Для этого необходимо ввести 
с консоли после подсказки: 


_$ (PRIVET2W) 
При разработке приложений, содержащих несколько файлов, необходи- 
мо использовать встроенную систему управления проектом Visual LISP 
для автоматической оптимизации кода. 
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Выход из среды Visual LISP можно осуществить двумя способами: 

* с помощью меню. Для этого мышкой выберите пункт Exit (Выход) na- 

дающего меню File (Файл) главного меню; 

e с помощью комбинации клавиш А+О. 

И] в том и в другом случае на экране появится диалоговое окно Exiting 
Visual LISP... (Выход из Visual LISP) (см. рис. 1.14). На вопрос Really 
want to quit session? (Действительно ли вы хотите выйти из Visual LISP?) 
вы должны ответить Yes (Да) или № (Нет), то есть щелкнуть по соответ- 
ствующей кнопке. 

Если в тексте в любом окне редактора сделаны какие-либо изменения, 
и они не были сохранены, то во время закрытия файла появится диалого- 
вое окно с предложением сохранить изменения (рис. 1.36). 

B ответ на запрос Save changes to DOM (Сохранить изменения в файле 
под названием РОМ) необходимо щелкнуть по кнопке Yes (Да), No (Нет) 
нли Cancel (Отменить). 

Если при выходе из Visual LISP остаются программы, которые открыты 
в скнах текстового редактора, Visual LISP автоматически открывает их 
в начале нового сеанса работы. 


Oo me 
"> 


== 


3 заме changes to DOM 


Рис. 1.36. Окно с запросом о сохранении изменений 
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В этой главе поясняются основные no- 
нятия и определения языка AutoLISP, 
рассказывается об этапах программи- 
рования, встроенных функциях языка, 
а также функциях, расширяющих воз- 
можности AutoLISP. Здесь же описыва- 
ется процесс разработки программ на 
языке AutoLISP в среде Visual LISP. 
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2.1. Основные понятия и определения 


AutoLISP — один из диалектов языка программирования высокого уровня 
COMMON LISP (1956). LISP был создан как язык функционального про- 
граммирования и относится к языкам декларативного типа. 

Представленная на схеме классификация несколько условна, посколь- 
ку почти каждый язык содержит те или иные элементы другого языка. 
Со временем языки взаимно дополняют и обогащают друг друга. 


Языки программирования 


Процедурные Декларативные 


(операторные) 


FORTRAN, PASCAL, C... нами 


Логические Функциональные 
PROLog, KLO,... LISP, APL, LogO,.. 


Рис. 2.1. Классификация языков программирования 


у 


Название языка LISP происходит от начальных букв двух слов LISting 
Processing (Обработка списков). 

Список — это упорядоченная, заключенная в круглые скобки последова- 
тельность, элементами которой могут быть: числовые константы (числа 
целые и вещественные); текстовые константы; логические (Т - истина, 
NIL — ложь); идентификаторы (имена переменной, функции, аргумента); 
список. Список будем записывать с апострофом перед открывающей круг- 
лой скобкой. Например: 

"(15 12,14 "Т=хстовая константа" '(АВС) РТ) 

Таким образом, список в общем виде — это многоуровневая, иерархичес- 
кая структура данных, в которой открывающие и закрывающие круглые 
скобки находятся в строгом соответствии. 

Список, в котором нет ни одного элемента, называется пустым и обозна- 
чается '() или именем NIL. Список в AutoLISP заключается в круглые 
скобки, а элементы списка разделяются пробелами. 

Выражение - это список, в котором первым элементом является имя 
функции. Любая функция AutoLISP состоит из выражений и сама явля- 
ется выражением. Выражение в AutoLISP имеет вид: 


E] 
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(<имя функции> [<аргумент1>] [< аргумент2>] [<>]...) 

Квадратные скобки означают, что элемент может быть в списке, а может 
и не быть. 

Аргументы (параметры) — это средство передачи значений (данных) 
в функцию. Аргументами могут быть переменные, константы (числовые, 
текстовые, логические) или выражения. Число аргументов функции мо- 
жет быть переменным, фиксированным или нулевым. 

Переменные — это элементы языка AutoLISP, предназначенные для 
представления различных элементов языка AutoLISP и не имеющие no- 
стоянного значения. 

Константы — это элементы языка AutoLISP предназначенные для пред- 
ставления самих себя, имеющие постоянные значения. 

Константы языка AutoLISP могут быть трех видов: числовые (целые 
и вещественные); текстовые (строковые) и логические. 

Числовые константы — это любая последовательность цифр со знаком 
или без знака, отделяемая или неотделяемая точкой. Знак точки не дол- 
жен стоять в начале и в конце числа. 

Целые числа в AutoLISP представляются 32 двоичными разрядами со 3Ha- 
ком, и их значения могут находиться в пределах —2147483648... +2147483648. 
Однако между AutoLISP и AutoCAD передаются только 16-разрядные 
числа (то есть значения в пределах —32768... +32767). При использовании 
значений, выходящих за эти пределы, необходимо использовать функцию 
(ЕГОАТ...) для преобразования целого числа в вещественное. 

Вещественные числа в AutoLISP представляются как числа с плаваю- 
щей точкой с двойной точностью, при этом обеспечивается не менеее 14 
знаков точности. Вещественные числа передаются как значения с 32 дво- 
ичными разрядами. Числа между —1 и 1 должны явно содержать нулевую 
целую часть. Точно так же надо писать, например, 23.0, а не 23. 

Текстовые константы — это любая последовательность знаков и пробе- 
лов, взятых в кавычки. 

Логические константы — это T (True - истина), Nil - ложь. 

Символы (идентификаторы) — это имя (имена переменной, функции, ap- 
гумента), состоящее из прописных или строчных букв, цифр и знаков за 
исключением () — круглых скобок, . — точки, ' — апострофа, " — кавычек, ; — 
точки с запятой. Изначально у символов нет никакого значения. 

В интерпретаторе прописные и строчные буквы отождествляются 
и представляются прописными. | 

Форма представления программы и обрабатываемых данных в AutoLISP 
одна и та же — список. В зависимости от контекста запись вида (- 10 7) 
в AutoLISP может интерпретироваться двояко. 


Fad 


è“; 
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Это может быть список, обеспечивающий вычисление. Первый элемент 
списка — имя функции, два остальных — ее аргументы. В результате полу- 
чаем значение вычитания, равное 10 - 7, то есть 3. Но это может быть 
и список, состоящий из трех элементов (символов: —, 10 и 7). 

Списками удобно представлять алгебраические выражения, графы, гео- 
метрические объекты, правила вывода и многие другие сложные объекты. 
Кроме того, они хорошо компонуются в памяти современных ЭВМ. 

Единственный вид операций над данными в AutoLISP — это вычисле- 
ние функций. Перед вычислением все переменные, аргументы и вызовы 
функций заменяются на свои значения. Чтобы обойти обязательное вы- 
числение функций или блокировать их вычисление, используется функ- 
ция (QUOTE...) или ее эквивалент в виде апострофа '. Например, запись 


(Сета (* 55) ) EH "(* 5.6) 


даст одно и то же значение (* 5 6) — список. 
Как можно заметить, операция умножения не выполняется. Чтобы 
снять олокировку, используется функция (ЕУА!Т....); например, запись 


(EVAL (QUOTE (* 56))) ИЛИ (EVAL '(* 56) } 


даст одно и то же значение 30 — результат умножения чисел 5 H 6. 

Функция (EVAL...) обеспечивает снятие блокировки и выполняет ONE- 
рацию вычисления, например, функции умножения. Все эти функции - 
встроенные функции языка AutoLISP. 

Здесь функция (EVAL...) присутствует явно, однако при вычислении 
функций, не блокированных функцией (ОЧОТЕ...), нет ее явного Npr- 
сутствия, поэтому писать ее не надо. По существу, функция (ЕУА!....) — это 
интерпретатор языка AutoLISP (Evaluate — вычислить). 

Работа языка AutoLISP состоит в чтении входного выражения (списка), 
вычислении этого выражения с помощью функции EVAL (она присутству- 
ет, как правило, неявно) и выводе полученного результата — значения фун- 
кции. При этой схеме работы не происходит перевода программы в машин- 
ный код. Такой режим работы называется интерпретирующим, а функция 
(EVAL...) - интерпретатором. 

Значением переменной в LISP может быть объект любого типа а (число, 
символ, список, имя переменной, функции, ...) без предварительного его 
описания, что недопустимо в процедурных языках программирования. 

Современные Г.15Р-системы, включая AutoLISP, обладают мощными 
средствами, необходимыми для эффективного решения численных задач. 
Известно, что одна из целей COMMON LISP заключалась в том, чтобы 
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стать гибкой и эффективной альтернативой Фортрану в области числен- 
ного научно-технического программирования. 

В языке AutoLISP свыше 200 встроенных функций, каждая из которых 
выполняет определенную операцию. LISP является языком прикладного 
и системного программирования высокого уровня одновременно. Машин- 
ный язык он напоминает тем, что и данные, и программы представлены 
в нем в одинаковой форме. 

В AutoLISP можно выделить три вида функций: встроенные в язык, 
разработанные и описанные пользователем, а также функции, разработан- 
ные и описанные другими пользователями. 

Для создания новых функций в AutoLISP имеется специальная функ- 
ция (DEFUN...}). При разработке функций в AutoLISP широко использу- 
ется мощный метод рекурсии, то есть при определении функции эта фун- 
кция может вызывать саму себя. 

Рассмотрим этот метод на примере вычисления показательной функции 
с целым положительным коэффициентом. 

Ноказательную функцию можно представить как функцию двух аргу- 
ментов: У(А, N) = A^. Эту же функцию можно представить и в другом виде: 

УСА, М) = А * У(А, №-1) =A= AM! = АХ. 

В языке AutoLISP эту функцию можно определить с помощью встроен- 
ной функции под именем DEFUN (DEfinition FUNction — определение 
фуикции) с использованием рекурсии: 

(DEFUN РОС (А М} ; определение показательной Функции 
(ТР (=N1)A 
(* A (POCA (- N 1}))) 
) 

В результате выполнения функции (DEFUN...) появится имя РОС. Это 
означает, что создана и описана новая функция, которая может быть ис- 
пользована для вычислений. 

Например, запись (РОС 5 4) тут же даст результат вычисления: 625 — 
возведение числа 5 в четвертую степень. 

При создании пользовательской функции после имени функции 
DEFUN следует имя функции, которое задает сам пользователь (в нашем 
примере РОС), затем в круглых скобках через пробел указываются аргу- 
менты. Далее описывается алгоритм вычисления функции: если М = 1, то 
результат выполнения функции равен А, иначе произведению А на AN- 2 
Здесь следует обратить особое внимание на форму записи функции при ее 
определении. Имя функции пишется в инфиксной форме (сначала имя 
функции, а затем в круглых скобках аргументы). При использовании фун- 
кции для вычислений она пишется в префиксной форме. Имя функции 
и аргументы заключены в круглые скобки. 
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Функция должна описываться до начала использования. Обращение 
к описанной функции может быть помещено в любом месте программы, 
оно может стоять даже на месте аргумента другой функции. 

При вызове функции интерпретатор обратится к описанию, произведет 
вычисление согласно описанию и тут же выдаст результат или будет ис- 
пользовать его для дальнейших вычислений. Обращение после описания 
нашей функции даст следующий результат: 


Для облегчения понимания описание функций на AutoLISP лучше ge- 
лать с отступами, а также снабжать необходимыми комментариями, кото- 
рые записываются после ; (точки с запятой). 

(DEFUN POC (А N) ; показательная функция с положительным 
( ) А ; показателем степени 
(* a (POCA (- N 1})}) 


(POC 5 £) ; вызов функции после ее описания 


Функцию (DEFUN...) можно использовать для описания самых разно- 
образных функций, например, функции, которая будет брать производную 
от алгебраического выражения; искать и исправлять в тексте ошибки; ри- 
совать на экране многоступенчатый объект с заданными параметрами; чер- 
тить узел машины... 

В настоящее время созданы Е5$Р-системы и даже 115Р-машины, KOTO- 
рые содержат тысячи подобных функций, обеспечивающих эффективное 
решение многочисленных самых разнообразных задач, включая задачи 
искусственного интеллекта. 


2.2. Основные этапы 
программирования на AutoLISP 


AutoLISP хорошо сочетается с прикладной графикой, он очень прост 
в изучении и универсален в применении. Язык имеет много встроенных 
функций, отражающих специфику графического редактора AutoCAD. 

AutoLISP обеспечивает возможность формирования чертежа за считан- 
ные минуты. Чтобы получить чертеж, необходимо предварительно напи- 
сать программу для его создания. Для упрощения процесса нужно иметь 
соответствующий банк программ графических чертежей. 

Написание программы на AutoLISP требует выполнения ряда основ- 
ных действий: четкой формулировки — (постановки) задачи; выявления 
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основных особенностей, взаимосвязей и количественных закономернос- 
тей; формирование графического изображения объекта; разработки про- 
граммы (функций) на AutoLISP; реализации программы на SENT 

Каждый из этих этапов рассмотрим подробнее. 

Постановка задачи. На этом этапе определяется: графический БЫ 
(план офиса, коттедж, многоступенчатый объект и т. д.), который может 
формироваться программой при различной входной информации (напри- 
мер, число ступеней объекта, размеры каждой ступени, текстовые поясне- 
ния, необходимость указания размеров, местоположение объекта на чер- 
теже и т. д.). 

Выявление основных особенностей, взаимосвязей и количественных 
закономерностей. На этом этапе устанавливаются взаимосвязи отдель- 
ных элементов чертежа с точки зрения эффективного их построения, на- 
пример, взаимосвязь между смежными ступенями объекта: диаметр по- 
следующей ступени объекта может быть меньше или больше диаметра 
предыдущей и т. д. Одновременно определяются способы построения от- 
дельных элементов графического объекта и условия, которые влияют на 
выбор способа построения элемента. Проводится декомпозиция сложного 
графического объекта на ряд элементарных, описание которых может быть 
выполнено простыми встроенными функциями. Определяются постоян- 
ные и переменные параметры, текстовые вставки, формируются запросы 
и сообщения, программно выдаваемые конструктору и т.д. 

Разработка последовательности действий создания графического 
изображения объекта. На этом этапе подробно излагаются все действия, 
связанные с построением графического изображения объекта, возможно 
использование циклических процедур. Указывается, какая входная ин- 
формация необходима, как она используется для формирования изобра- 
жения того или иного элемента объекта. 

Разработка программы (функций) AutoLISP. В языке функциональ- 
ного программирования каждое действие, каждая операция описываются 
некоторой функцией или комбинацией функций, встроенных или постро- 
енных пользователями. Каждая функция имеет свое оригинальное HMA, 
она может иметь один или несколько аргументов либо не иметь их. Аргу- 
менты функции могут быть тоже функциями. 

В AutoLISP используется несколько необычная форма записи функ- 
ции — префиксная. Все функции, встроенные и разработанные пользова- 
телями, имеют префиксную форму записи. 

Префиксная форма записи функции — это такой вид записи, в которой 

имя функции вместе с аргументами функции заключаются в круглые скоб- 
ки. Наиболее привычной является инфиксная форма записи Функции. 
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Инфиксная форма записи функции — это такой вид записи, при которой 
сначала пишется имя функции, а в скобках указываются ее аргументы. 

Ниже в общем виде приведены разные формы записи: 

F (X1,X2,..) - инфиксная форма записи функции; 
(F X1 Х2..) - поефиксная форма записи функции, 

где F — имя функции; 

Х1,Х2 - аргументы функции. 

В качестве аргумента функции в AutoLISP может быть функция, пе- 
ременная, константа и т. д. Имя функции может состоять из одного или 
нескольких символов. Например, запись (+ 5 4) означает, что функция 
имеет имя +( сложение) и два аргумента: числа 5 и 4. В результате Bbl- 
полнения функции получим число 9. Функция вычитания имеет имя —; 
функции деления — /, умножения - *; возведение в степень — EXPT; 
определение модуля числа — ABS; синус — SIN; косинус — COS; арктан- 
генс — ATAN; квадратный корень — SORT; экспонента — EXP; натураль- 
ный логарифм — ГОС. 

Выполнение программы на AutoLISP. Рассмотрим основные способы 
выполнения программы на AutoLISP: 

* ввод программы с клавиатуры в командной строке системы AutoCAD. 

В ответ на приглашение Command: можно вводить функции Ащо! $ Р 
После ввода функции в командной строке нажмите клавишу Enter 
(Ввод) для выполнения функций и просмотра результатов. Например: 

Comand: (+ (* 567) (COS 0.5)) ; нажмите клавишу Enter 

210.878 

Command: (COMMAND TEINE” "5,10" "30,40" "" "ZOOM" "АМ." "") 
На графическом поле рабочего стола AutoCAD появится изображение 
линии, проведенной из точки с координатами (5, 10) в точку с коорди- 
натами (30,40). Этот способ не предусматривает сохранения введен- 
ных выражений; 

° ввод программы, оформленной как описание функции с клавиатуры, 

в командной строке системы AutoCAD. Если программа оформлена как 
одно или несколько описаний функций, то есть начинается с имени 
DEFUN, то к этой функции можно обращаться в любой момент до за- 
вершения текущего сеанса работы с AutoCAD, после чего программа 
должна быть набрана снова. Например, определим функцию, которая 

. будет вычислять тангенс угла: — 

Command: (DEFUN ТТАМС (X) (IF (AND (/=Х (* РТО. 5)) 
(/=Х (* PI 1.5))) (/ (SIN X} (С0$ Х) )_"Бесконечность"}}) 


ТТАМС 
Command: (ТТАМС 0.5) 


Основные этапы программирования на AutoLISP 55 


0.546302 

Command: (ТТАМС (* PI 1.5) ) 

"Бесконечность" 
Если синтаксис при определении функции не нарушен, то после на- 
жатия клавиши Enter на следующей строчке появится имя новой 
определенной функции, которой можно пользоваться для расчетов; 

e запись программы в файле и ее вызов в командной строке системы 
AutoCAD. Программа создается с помощью любого редактора текстов 
и сохраняется в файле с расширением LSP например, DOM.LSP. 

Для выполнения программы ее необходимо загрузить, используя функ- 

цию AutoLISP (ГОАО...). Например: 


Command: {LOAD "C:/ALISP/DOM") 


Имя файла при этом задается в текстовом виде без расширения с указа- 
нием пути. Если загрузка завершена успешно, функция (LOAD...) возвра- 
щает имя последней функции, определенной в файле, если нет — имя фай- 
ла (LOAD "<имя файла>"); 

* 6600 программы, оформленной как описание функции с начальными CUM- 
волами С: с клавиатуры в командной строке системы AutoCAD. Если 
программа может быть оформлена как описание функции без аргумен- 
тов, то есть начинается с имени DEFUN, а собственное имя функции 
имеет начальные символы С:, то к этой функции можно обращаться 
без круглых скобок в любой момент до завершения текущего сеанса 
работы с AutoCAD, после чего программа должна быть набрана снова; 

* автоматическая загрузка программы. Если программа оформлена как 
описание функции без аргументов, т.е. начинается с имени DEFUN, 
а собственное имя функции имеет начальные символы С: и она загру- 
жена в файл ACA D.LSP, то такой файл автоматически загружается при 
запуске AutoCAD. Файл ACAD.LSP обычно содержит наиболее часто 
используемые функции. Такие функции вызываются на выполнение 
как команды AutoCAD без круглых скобок; 

° 6600 программы из окна текстового редактора Visual LISP. Когда npo- 
грамма находится в активном окне текстового редактора, щелкните по 
кнопке Load activate edit window (Загрузка активизированного окна 
редактирования) или выберите пункт Load Text in Editor (Загрузить 
текст из окна редактирования) из падающего меню Tools (Инструмен- 
ты) главного меню Visual LISP. Как только на экране появится сооб- 
щение о загрузке программы в окне консоли Visual LISP, произведите 
обращение к функции и для ее выполнения нажмите клавишу Enter: 

° 6600 программы из окна консоли Узи LISP. После введения програм- 
мы в окне консоли нажмите клавишу Enter (Ввод) для ее выполнения. 
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Программа на AutoLISP может обрабатывать данные из файлов, KOTO- 
рые необходимо предварительно открыть с помощью функции (ОРЕМ...). 
После работы все открытые файлы необходимо обязательно закрыть, ис- 
пользуя функцию (СГ.ОЗЕ...). 

Функция (OPEN...) часто используется в сочетании с функцией 
(ЗЕТО...), что упрощает операцию ввода-вывода. Например, следующая 
запись: 

(SETQ FI (OPEN "С:/КООВ/УАЬ.РАТ" "г" )) 


означает, что на диске С: в каталоге KUDR производится поиск файла 
с именем VAL.DAT, который открывается для чтения "г" (read — чтение). 
Использование функции (SETQ...) упрощает операцию закрытия откры- 


того файла, которая при этом выглядит следующим образом: 

(CLOSE F1) 

Кроме символа "г" (чтение), можно использовать символ “w" (write — 3a- 
пись), который означает, что файл данных открывается для записи. Если 
файл с таким именем уже существует, данные будут перезаписаны. Исполь- 
зование символа "а" (add — добавить) означает открытие файла данных для 
пополнения его новыми сведениями. Если такого файла нет, он создается. 

Следует обратить особое внимание на необычную запись местонахож- 
дения файла. В ней используется символ / (прямая косая черта) вместо 
символа,\ (обратной косой черты), если следовать правилам операцион- 
ной системы MS DOS. Это вызвано тем, что символ \ в AutoLISP исполь- 
зуется для ввода управляющих символов: \п — перевод строки; \г — воз- 
врат каретки; \ — табуляция. В то же время можно использовать 
и обратную косую черту \, но в следующей записи: \\. И тогда открытие 
файла можно записать так: 

(SETQ F1 (OPEN "C:\\KUDR\\VAL. DAT" "г" )) 

Для вывода на экран значения, на которое ссылается символ, необходи- 
мо набрать восклицательный знак и символ: ! <символ>. 

Ввод в командной строке AutoCAD круглой открывающей скобки (03- 
начает подключение интерпретатора AutoLISP для обработки вводимого 
выражения. Количество круглых открывающих скобок в выражении, за- 
писанном на языке AutoLISP, должно точно соответствовать числу круг- 
лых закрывающих скобок. 

Последняя парная закрывающая скобка означает конец ввода выраже- 
ния на языке AutoLISP и переход интерпретатора AutoLISP в режим Bhl- 
числения (обработки) выражения. Если введенное выражение полностью 
соответствует синтаксису языка AutoLISP, то ниже появляется результат 


вычисления. 
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Допустим, необходимо произвести сложение числа 5.34 с вещественным 
числом, которое вводится с клавиатуры. Это выражение можно записать 
в командной строке следующим образом: 

(+ 5.34 (СЕТВЕАЬ "ВВЕДИТЕ ЧИСЛО М = ")) 
После нажатия клавиши Enter (Ввод) на экране появится предложение 
в виде: | 
ВВЕДИТЕ ЧИСЛО N = | 
Введем, например, число 15.06. 
На следующей строчке будет показан результат вычисления: 


20.4 
Предположим, в выражение вкралась ошибка: пропущены вторые двой- 


ные кавычки в строковой константе в подсказке. Выражение будет выгля- 
деть так: 
(+ 5.34 (СЕТВЕАЬ "ВВЕДИТЕ ЧИСЛО М = )) 
В этом случае после ввода выражения появится сообщение: 
2> 
Такое состояние позволяет продолжить ввод выражения AutoLISP. 
Данное сообщение связано с тем, что все символы после первой откры- 
вающей кавычки воспринимаются как строка символов. Чтобы про- 
должить вычисления, необходимо в строке, где появилось сообщение 2>, 
закрыть строковую константу второй двойной кавычкой и ввести две за- 
крывающие скобки. 
Строка будет выглядеть следующим образом: 
2%") ) | 
После нажатия клавиши Enter появится запрос: 
ВВЕДИТЕ ЧИСЛО М = )) 
Необходимо ввести число, например, 15.06. 


ВВЕДИТЕ ЧИСЛО М = )) 15.06 
20.4 


Отказаться от неверно набранного выражения можно, если нажать ком- 
бинацию клавиш Ctrl+C и правильно набрать выражение. 
Допустим, в выраженни, приведенном выше, сделана ошибка — пропу- 
щена вторая закрывающая скобка: 
(+ 5,34 (СЕТВЕАБ "ВВЕДИТЕ ЧИСЛО N = "} 
В этом случае после ввода выражения появится сообщение: 
1> 
Это означает, что в выражении пропущена одна закрывающая скобка. 
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Чтобы продолжить вычисления, необходимо в строке, где появилось 
сообщение 1>, ввести одну закрывающую скобку. Строка будет выгля- 
деть так: 

TeS) 
После нажатия клавиши Enter появится запрос: 
ВВЕДИТЕ ЧИСЛО М = 
Введем, например, число 15.06: 
ВВЕДИТЕ ЧИСЛО М = 15.06 
23.4 

Отказаться от неверно набранного выражения также можно, если на- 
жать комбинацию клавиш СЫ1+С и правильно набрать выражение. 

Самое трудное в AutoLISP — отслеживать соответствие открывающих 
и закрывающих круглых скобок и кавычек для строковых констант. Что- 
бы облегчить этот процесс при написании программ на AutoLISP, целесо- 
образно использовать текстовые редакторы, которые могут следить за тем, 
чтобы количество открывающих скобок соответствовало количеству за- 
крывающих. Такими возможностями обладает, например, текстовый ре- 
дактор NORTON Editor фирмы SYMANTEC. Но лучше всего использо- 
вать современную интегрированную среду Visual LISP для системы 
AutoCAD 14-Й версии. 


2.3. Встроенные функции языка AutoLISP 


По назначению все встроенные функции языка AutoLISP условно можно 
разделить на следующие: 

° ввода данных различного типа; 

* манипулирования с данными; 

e работы с числовыми данными; 

° управления процессом вычисления (выполнения) функций; 

° проверки выполнения условий; 

° вывода данных различного типа; 

e доступа к примитивам и средствам AutoCAD; 

e особые. | 

Пользователь может переопределять или модифицировать функции, 
расширять и создавать свои собственные. 

Ниже мы рассмотрим синтаксис основных встроенных функций языка 
AutoLISP, которые могут быть использованы в процессе разработки 


пользователем собственных функций. : 
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2.3.1. Функции для ввода данных различного типа 


(PROMPT <"Поясняющее сообщение ">) — ввод сообщения; 

(PROMPT "ВВЕДИТЕ ОСНОВНЫЕ ДАННЫЕ ЗАДАЧИ ") 

ВВЕДИТЕ ОСНОВНЫЕ ДАННЫЕ ЗАДАЧИ 

(GETINT <"Поясняющее сообщение ">) - ввод целого числа; 

(GETINT "\п ВВЕДИТЕ ЧИСЛО ЭТАПОВ РЕШЕНИЯ ") 

ВВЕДИТЕ ЧИСЛО ЭТАПОВ РЕШЕНИЯ 3 ; ввод целого числа 

(СЕТКЕАТ, <"Поясняющее сообщение ">) — ввод действительного числа; 


(СЕТВЕАЬ "\п ПРОДОЛЖИТЕЛЬНОСТЬ ОПЕРАЦИИ ") 
ПРОДОЛЖИТЕЛЬНОСТЬ. ОПЕРАЦИИ 15.5 ; ввод действительного числа 
(GETSTRING [<СК>][<"Поясняющее сообщение ">]) — ожидание BBO- 
да строки с пробелами, если есть <СК>, иначе ввод строки до 1-го пробела; 
(GETSTRING "\п ВВЕДИТЕ ФАМИЛИЮ: ") ; вызов функции 
ВВЕДИТЕ ФАМИЛИЮ: КУДРЯВЦЕВ ; ввод фамилии на запрос 
(GETDIST [<11>[<"Поясняющее сообщение ">]) — ожидание ввода 
точки T2, если есть T1, тогда расстояние К = T2 - T1, иначе вводится pac- 
стояние К - действительное или целое число; 
(СЕТОТЗТ ' (1.01.0) "\п ВВЕДИТЕ ВТОРУЮ ТОЧКУ ") 
ВВЕДИТЕ ВТОРУЮ ТОЧКУ 7,7 ; ввод координат второй точки 
8.48528 ; результат - расстояние от 
; TOYK⁄ (1,1) де (7,7) 
Точки задаются списком из двух координат NO X и У, например, точке 
T1 может соответствовать список "(10.0 15.0); 
(СЕТАМСТЕ [<Т1>]||[<"Поясняющее сообщение ">]) — ожидание BBO- 
да точки T2, если есть T1, тогда угол равен углу между отрезком [T1 T2] 
и осью Х, иначе вводится значение угла в радианах; 


(СЕТАМСЬЕ ' (1.0 1.0} "\п УГОЛ НАКЛОНА ЛИНИИ ") ; вызов 


УГОЛ НАКЛОНА ЛИНИИ 5, 3 ; ввод координат 
; второй точки 
0.463648 | ; результат - угол 


‚ наклона линии 


(СЕТРОГМТ [<Т1>]|[<"Поясняющее сообщение ">]) — ожидание ввода 
списка значений координат X и У точки, если нет Т1, иначе рисует «рези- 
новую» линию от T1 до положения курсора; 


(СЕТРОТМТ "ВВЕДИТЕ БАЗОВУЮ ТОЧКУ ВТ ") ; вызов функции 
ВВЕДИТЕ БАЗОВУЮ ТОЧКУ ВТ 6,9 ; ввод точки на запрос 


(СЕТСОВМЕВ <Т1>[<"Поясняющее сообщение ">]) — изображение 
«резинового» прямоугольника от точки Т1 до расположения курсора; 
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(СЕТК\У’ОВО [<"Поясняющее сообщение ">]) — ожидание ввода клю- 
чевого слова, описанного функцией (ПМТТСЕТ...); 
(INITGET [<Сумма чисел>][<"ключевые слова..."> |) — установка режи- 
ма ввода данных. Сумма чисел реализует несколько режимов. 
Числа: 
1 — запрещен пустой ввод; 
2 — запрещен ввод нуля; 
4 — запрещен ввод отрицательных чисел; 
© — пределы координат не контролируются; 
16 — ввод трехмерных точек; 
32 — используется пунктир для изображения 
«резиновых» линии или прямоугольника; 
64 — игнорируется координата Z трехмерной точки 
(только в GETDIST AutoCAD 11-й и 12-й версий); 
128 — возвращает произвольный код с клавиатуры; 
ключевые слова — определение списка ключевых слов через пробел; 
(INITGET 1 “ДА НЕТ") ; вызов функции 
(СЕТЖИОВО "ИЗМЕБИТЬ РЕЖИМ РАБОТЫ ? (ДА НЕТ) ") 


Esli 


ИЗМЕНИТЬ РЕЖИМ РАБОТЫ ? (ДА HET) ДА ; ввод ключа 
(ВЕАО-ШУЕ) — ожидание ввода строки с клавиатуры; 
(REZAD-LINE) ; вызов функции 
ВНИМАТЕЛЬНО РАССТАВЛЯЙТЕ СКОБКИ ; ввод текста с клавиатуры 
(ВЕАО-СНАК) — ожидание ввода символа с клавиатуры для преобра- 
зования его в числовой код ASCII; 


(ВЕАР-СНАК) ; вызов функции 
А ; ввод символа 
; результат выполнения - код ASCII. 


95 
(READ-LINE <Е1>) — ввВОД записи из файла <Е1>; 
(РЕАО-ЬТМЕ (OPEN "С:\\СМ\\СМ1.ТХТ" "г")) 
(КЕАО-СНАК <Е1>) - ввод символа из записи файла <Е1>. 
Файл <Е1> предварительно должен быть открыт. Это делается следую- 
щим образом: 
(SETQ F1 (OPEN "С: \\КОБВ\\РТЬЕ.БАТ" "г")) 
Первая запись в кавычках — местоположение файла в каталоге, вторая — 
режим чтения (read). Кроме этого, могут быть режимы "w" (write — 


записи),"а" (add — добавления). 
После открытия ее и использования его необходимо закрыть: 


(CLOSE F1) ; закрытие файла <F1> 
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2.3.2. Функции для манипулирования с данными - 


(ЗЕТО <переменная> <выражение>) — присвоение переменной значе- 
ния выражения (атом, список, Функция, ...); 


(ЗЕТО А 10 ; присвоение переменной А значения 10 
В "ABS" ; присвоение В текстовой константы "ABS" 
С (Cos 0.6) —_ ; присвоение С значения (COS 0.6)) 

Или 


(SETQ А 10 В "ABS" С (COS 0.6)}; вызов функции 
(SET <‘символ> <выражение>) — присвоение символу с апострофом 
значения выражения (атом, список, функция, ...); 


(ЗЕТ 'А 10} ; присваивает символу ‘А значение 10 
10 ; результат 


(CAR <список>) — возвращение первого элемента списка; 


(CAR '(ВСОЕЕ)) ; вызов функции 
В ; результат - первый элемент списка 


(CDR <список>) — возвращение списка без первого элемента; 


(COR Ч ВБСВЕЕ) ; вызов функции | 
(CDE F) ; результат - список без первого элемента 
(СААВ <список>) — эквивалентно (CAR (CAR <список>)); 

(CDAR <список>) — эквивалентно (СОК (CAR <список>)); 

(CADR <список>) — эквивалентно (CAR (СОК <список>)); 

(CDDR <список>) — эквивалентно (СОК (СОК <список>)); 
(CADAR <список>) — эквивалентно (CAR (СОК (CAR <список>))); 
(САРОК <список>) — эквивалентно (CAR (СОК (СОК <список>))) 
и т. д. вплоть до четырех уровней вложенности; 


(LAST <список>) — возвращение последнего элемента списка: 


(LAST '(ВСОЕЕ)) ; вызов Функции 

Е | ; результат - последний элемент списка 
(LIST <элемент> <элемент>...) — создание списка из элементов; 
(LIOTA ARZ CID E) ; вызов Функции 

(A BCDE) ; результат - список элементов 


(APPEND <список>...) — соединение нескольких списков в один; 


(APPEND ' (A B) '(СОЕ)) ; вызов функции 

{АВСРЕ) ; результат - один общий список 

(REVERSE <список>) — изменение порядка элементов на обратный; 
(REVERSE '(АВСРЕЕ)}) ; вызов Функции 


(FEDCBA) ; результат выполнения 
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(ASSOC <ключ> <список>) — поиск элемента в списке по ключу; 


(SETQ LA (LIST '(1 A) '(2 B) '(3 C)))  ; вызов функции 

(ASSOC 2 LA) ; вызов ФУНКЦИИ 

(2 B) ; подсписок с заданным ключом 

(SUBST <новый элемент> <старый элемент> <список>) — замена 
в списке старого элемента на новый; 


(SETO LB '(ABCDE)) ; вызов функции 

(SUBST 'Z 'B LB) ; вызов функции 

(àa Z CDE) . список с замененным элементом 
(MEMBER <элемент N> <список>) — выделение списка с элемента М; 
(MEMBER 'D '(АВСРЕЕ)) ; вызов функции 

(DEF) ; результат выполнения 


(NTH <число N> <список>) — выделение (М +1)-го элемента списка, 
так как счет элементов в списке начинается с М = 0; 


(NTE 3 '(2 BC D)) ; вызов Функции 
D ; выделен 4-й элемент списка 


(FIX <действ. число>) — преобразование действительного числа в целое; 
(21Х 5.2) ; вызов Функции 
5 ; результат выполнения - целое число 
(ЕТОАТ <целое число>) — преобразование целого числа в действительное; 


» 


(FLOAT 5) ; вызов функции 
3.0 ; результат выполнения - 
; деиствительное число 
(АМСТО$ <угол в радианах> [<представление>]|[<точность> |) — npe- 
образование угла в радианах в текстовую строку; 


(ZNCGTOS 0.685) ; вызов функции 
"9.25" ; угол в градусах как текстовая 
; константа 


(СНВ <число>) — преобразование числа в символьный код ASCHI; 


(СЕВ 77) ; вызов функции 
"mM" ; результат - символьный код ASCII числа 77 


(ASCII <"символ">) — значение символа в числовом коде ASCII; 


(ASCII "С"} ; вызов функции 
71 ; результат - числовой код АЗСТТ символа С 


(АТОЕ <"число">) — преобразование числовой текстовой константы 
в действительное число; 


(ATOF "55127) ; вызов функции 
55.20000 ; результат выполнения 
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(ATOI <"число">) — преобразование числовой текстовой константы 
в целое число; 


(ATOL 21 | ; вызов функции 
34 ; результат выполнения 


(ТТОА <целое число>) — преобразование целого числа в числовую тек- 
стовую константу; | 
(ТТОА 19) ; вызов функции 
"Toe _; результат выполнения 
(RTOS <действительное число>)[<режим>][<точность>]) — преобра- 
зование действительного числа в текстовую константу. 


(RTOS 34.5 14) преобразует 34,5 в "3.4500Е+01" - научный режим 
(RTOS 34.5 2 4) преобразует 34,5 в "34.5000" - десятичный режим 
(RTOS 34.5 34) преобразует 34,5 в "2'-10.5000""  - технический режим 
(RTOS 34.5 4 4) преобразует 34,5 в "2'-10 1/2"" - архитектурный режим 
(RTOS 34.5 5 4} преобразует 34,5 в "34 1/2"" - дробный режим 
(STRLEN <"строка”">) — определение числа символов в строке; 
(STRLEN "Або тор") ; вызов Функции 

8 ; результат - число символов в строке 
(ЭТВСАТ <"строка 1"> <"строка 2">...) — соединение строк; 

. (STRCAT "Auto" "САШО" ) ; вызов функции 

"AutoCAD" ; результат соединения строк 


(SUBSTR <"строка"> <начало> [<длина>]) — выделение части строки 
подстроки (начало — номер символа, длина — число символов); 


(SUBSTR "AutoCAD" 5) ; вызов функции 

"САБ" ; результат - выделена часть текста 
(LENGTH <список>) — определение длины списка; 

(LENGTH '(ABCDEF)) ; вызов функции 

6 ; результат - число элементов 


2.3.3. Функции для работы с числовыми данными 
и выражениями 
(+ <N1> <М№2> <МЗ>...) - сложение чисел М1, №2, N3, ...; 


(F12. 5266 В] ; вызов функции 

61.9 ; результат сложения нескольких чисел 
(- <N1> <М2> <М№З>...) — вычитание из числа N1 чисел N2, N3, ...: 
БО. 23 ; вызов Функции 


0.1 ‚ результат вычитания нескольких чисел 
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(* <N1> <N2> <N3>...) — перемножение чисел N1, №2, N3, ...; 


ORG a5 2) ; вызов функции 

132.0 ; результат умножения нескольких чисел 
(/ <N1> <М2> <N3>...) — деление числа М1 на N2, N3, ...; 

(7:70 5.52) ; вызов функции 

6.36364 ; результат деления 


(ABS <М1>) -— определение абсолютного значения числа N1; 


(ABS -55.4) ; вызов ФУНКЦИИ 
55.4 ; результат определения абсолютного числа 


(1+ <N1>) — добавление к числу М1 единицы; 


(iF 15) ; вызов Функции 
15 ; результат выполнения 


(1- <М1>) - вычитание из числа М1 единицы; 


(1-43) ; вызов функции 
42 ; результат выполнения 


(SIN <угол в радианах>) — вычисление синуса угла в радианах; 


(SIN 0.54) ; вызов функции 
0.514136 ; результат вычисления синуса 


(СО$ <угол в радианах>) — вычисление косинуса угла в радианах; 


СО. ; вызов функции 
0.169967 ; результат вычисления косинуса 


(ATAN <М>) - определение угла в радианах (арктангенс); 


(АТАМ 45) ; вызов функции 
1.58858 ; результат вычисления арктангенса 


(ЕХР <М>) — определение величины экспоненты; 


(EX? 2) ; вызов Функции 
7.33906 ; результат вычисления экспоненты 


(EXPT <N1> <М№2>) -— определение показательной функции; 


(ЕХРТ 6.52.3) ; вызов Функции 
74.08 ; результат вычисления 


(ТОС <М>) - определение величины натурального логарифма; 


(ТОС 68.7) ; вызов Функции 
4.22975 ; результат вычисления 


- (МАХ <N1> <N2>...) - поиск максимального числа из всех; 


(МАХ 395.54.5} | ; вызов Функции 
ин ; результат - максимальное число из всех 
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(MIN <N1> <N2>...) — поиск минимального числа из всех; 


(MIN 5 4.1 2.2 7) ‚; вызов Функции 
2.2 ; результат - минимальное число из всех 
(REM <N1> <№2>) - определение остатка от деления М1 на N2; 
(ВЕМ 54 10) ; вызов Функции 
4 ; результат - остаток от деления 
(GCD <N1> <М2>) - определение наибольшего общего делителя; 
(GCD 12 27) ; вызов функции 
3 ; результат - наибольший общий делитель 


(ANGLE <Т1> <Т2>) - определение угла в радианах между прямой, 
проходящей через T1 u T2, и осью X; 


(ANGEE ' 12.05.09) "10.9 368) | 


0.785398 ; результат вычисления - угол в радианах 
(DISTANCE <Т1> <Т2>) - расстояние между точками T1 и T2; 
(DISTANCE {8.0 Э.А (270 6:07) ; вызов функции 

6.7082 ; результат - расстояние между 


; точками T1 и T2 
(INTERS <Т1> <Т2> <T3> <Т4> [<ОМ>]) - определение точки nepe- 
сечения двух отрезков, проходящих соответственно через точки T1, T2 
и T3, T4. Если <ОМ> нет, то точка пересечения должна быть в пределах 
обоих отрезков, иначе отрезки воспринимаются как бесконечные прямые; 
(INTERS ' (11) "(5S (15) 251] ; вызов функции | 
(3:0 340) ; результат - точка 
‚ пересечения отрезков 
(POLAR <T1> <U> <R>) - определение точки T2 путем перемещения 
из точки <Т1> под углом <U> в радианах на расстояние <R>; 


(POLAR ' (11) (/ PI 4) 4) ; вызов функции 
(3.82843 3.82843) ; результат - координаты точки 


2.3.4. Функции управления процессом вычисления 
(выполнения) функций 


(COND (<(Сусловие 1)> <(функция 1,1)> [(функция Ве.) 
(<(условие №)> <(функция М№,1)> [ (функция N,2)]...)) — вы- 
числение тех функций, для которых выполняются условия; 
Проверка проводится для всех условий. 
(SETO I 5J 9) ; присваивание значений переменным I y J 
(COND ((= IJ} (МАХ 5 10 3)) ; определение максимального числа 


3 — 1278 
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{ (< IJ) (MIN 5 6 20)) ; определение минимального числа 
((> IJ) (> 5778 9))); определение произведения чисел 


5 результат выполнения (вычисления) 


(ТЕ (<Ссловие 1)> <(функция 1)> [(функция 2)|) - если (условие 1) 
выполняется, то вычисляется (функция 1), иначе (функция 2); 


(SETO ТЗ} 

(ТР (= ГО) (МАХ 5 103) ; определение максимального числа 
(MIN 5 6 20) } ; определение минимального числа 

5 ; результат выполнения (вычисления) 


(REPEAT <целое число> <выражение>...) — вычисление выражений 
заданное число раз; | 


3 ; формирует цикл 
(SETQ D р ; присваиваются D результаты расчета 
; результат расчета 

(РКОСМ <выражение>...) — вычисление нескольких выражений там, 
где допускается вычисление только одного; 

ТЕ (< C DP (ROGN ЕТО С 

E Da) 

(APPLY <‘имя функции> <‘(список аргументов)>) — применение 34- 
данной функции к списку аргументов; 
ый ; вызов Функции 
3 ; результат сложения элементов списка 

(MAPCAR <‘имя функции> <'(CINHCOK аргументов)>...) — выполнение 
заданной функции над первыми элементами списков, затем вторыми ит. д.; 

"> о а") ; вызов функции 

[25-9 A19 120) ; результат вычисления 

(FOREACH <переменная> <список> <(функция 1)> <(функция 2)>...) 
присваивание переменной значения первого элемента списка и вычисле- 
ние функции, затем второго и т. д.; 

[Е a ea 


Af > 


(PRINT (COS N)}))) ; вычисление COS для каждого 
0 а 3 ; элемента списка и печать 
ое ; результатов расчета 
0.970737 


(WHILE <(условие)> <(функция 1)> <(функция 2)>...) — вычисление 
в цикле функций до тех пор, пока выполняется условие; 
(SETQ N 1) | ; определение начального значения М 
(WHILE (< N 4} ; условие вычисления в цикле 
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(PRINT (SIN (* 0.2 N))) ° ;' вычисление SIN, печать результата 
(SETON (+N 1}))) ; определение нового значения N 
0.198669 ; результаты расчета 
0.389418 
0.564642 


2.3.5. Функции проверки выполнения условий 
(AND <выражение>....) — T (TRUE), если нет NIL, иначе NIL; 


(А: в. SW ABC” ; вызов функции 
Т ; результат выполнения 
(ОВ <выражение>...) — T, если хотя бы одно T, иначе NIL; 
(ОВ NILL "САБ" 15) ; вызов функции 
Т ; результат выполнения 
(МОТ <выражение>...) — T, если имеется NIL, иначе NIL; 
(СЕТО А 15.8) 
(МОТ А) ; ВЫЗОВ ФУНКЦИИ 
NILL ; результат выполнения 
(BOUNDP <атом>) - T, если <атом> имеет значение, иначе NIL; 
(SETQ В 12.3) 
(BOUNDP 'B) ; вызов функции 
jà ; результат выполнения 
(МОМВЕКР <элемент>) — T, если <элемент> число, иначе NIL; 
(МОМВЕКР 183.2) ; вызов Функции 
Е ; результат выполнения 
(МИМОБЗР <число>) - T, если <число> отрицательное, иначе NIL: 
(MINUSP 9.25} ; вызов функции 
МИЛ. ; результат выполнения 


(EQUAL <выражение1> <выражение2> [<допуск>]) - T, если оба 
выражения равны между собой, иначе NIL; 


(EQUAL "АТОМ1" "ATOMI" } ; вызов функции 
T ; результат выполнения 
(LISTP <элемент>) - T, если <элемент> список, иначе NIL; 
(LISTP ' (DE F)) ; вызов функции 
T ; результат выполнения 


(АТОМ <элемент>) — T, если <элемент> атом, иначе МП: 
(SETQ C '(A B D)) 


(ATOM C) ; вызов функции 
NILL ; результат выполнения 


3* 


G 
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(ЕО <выражение!> <выражение2>) — T, если идентичны, иначе NIL; 
(SETQ Е! '(N Y Z) E2 ' (XY 2)) 
; вызов функции 
L ; результат выполнения 
(/= <атом1> <атом2>...) — T, если <атом1> не равен остальным атомам, 
иначе NIL; 


>. => >= m 


(= 7.35 7.14) ; вызов функции 


b w 


T ; результат выполнения 
(< <атом1> <атом2>...) — T, если <атом1> меньше всех последующих, 
иначе NIL: | 
(< "R" "D™) ; вызов функции 
1 ‚; результат выполнения 


(<= <атом1> <атом2>...) — T, если <атом1> меньше или равен всем INO- 


следующим. иначе NIL; 
(= <атом1> <атом2>...) — T, если <атом1> равен всем остальным ATO- 


мам, иначе NIL. 


2.3.6. Функции для вывода данных различного типа 
(\УЕТЕ-СНАБК <целое число>) — печатание символа ASCII кода; 


; после ввода появляется эхо команды, 
‚ 5 ; а на экран выводится латинская буква С 
(WRITE-LINE <текст>) — печатание текста без кавычек; 
(РВГУ1 <выражение>) — печатание и возвращение значения <выраже- 
ния>; если <выражение> — текст, то в кавычках; 
(PRIN! " HELLOW ") " EELLOW " 
(PRINC <выражение>) — печатание и возвращение значения <выраже- 


HHA; если это текст, то без кавычек; 
(PRINT <выражение>) — печатание с новой строки с последующим 
пробелом и возвращение значения выражения, текст без кавычек; 


vU 


(PRINT "HZLLOW") ; вызов функции 


НЕБОМ ; результат выполнения 
(WRITE-CHAR <целое число> <Е1>) — печатание текста в файл без 
кавычек, а возвращение в кавычках; 
(WRITE-LINE <текст> <Е1>) — печатание текста в файл <Е1> без ka- 
вычек, а возвращение в кавычках; 


(SETO fis (OPEN "C:\\AUTOCAD\\LISP\\WR. LSP" "а")) 
(ЯРТТЕ-ЬТМЕ "ХОРОШЕЕ НАЧАЛО" F1 } 


СЕ 

E 
19 

г. 
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(PRIN1 <выражение> <F1>) — печатание <выражения> в файл <F1> 
H возвращение значения <выражения>, текст — в кавычках; 
(PRINC <выражение> <Е1>) — печатание в файл <Е1> и возвращение 
значения <выражения>, текст без кавычек; 
(PRINC "ПРИВЕТ ВСЕМ ПОЛЬЗОВАТЕЛЯМ" F1 } 
(PRINT <выражение> <Е1>) - печатание в файл <Е1> и возвращение 
значения выражения, текст без кавычек. 


2.3.7. Функции доступа к примитивам и средствам 
AutoCAD — 


(ЕМТСЕТ <имя примитива>) - выбирает примитив из базы данных 
и возвращает его в виде списка в кодах ОХ Е; 

(ЕМТМЕХТ <имя примитива>) — выбирает следующий примитив из 
базы данных; 

(ЕМТГАЗТ) — выбирает последний созданный примитив (объект) из 
базы данных. 

Допустим, что последним мы ввели текстовый объект с такими данными: 


Command: TEXT 

JUSTIFY/STYLE/<START POINT>: 1,4 

HEIGHT <0.2000>: 1.5 

ROTATION ANGLE <0>: Enter 

TEXT: Доброе утро 

TEXT: Enter 

После вызова функций (ENTLAST) и (ENTGET...) в командной строке 

AutoCAD получим представление последнего текстового объекта в виде 
списка ОХЕ 


Command: {SETQ Е (ЕМТСЕТ (ENTLAST) } } | 
{(-1 . <ENTITY МАМЕ: 3100538>) ; имя примитива 


О. ТЕХ" ; Тип объекта (примитива} 
1. ЧЕ! ; метка 


(100 . "АСОВЕМТТТУ" } 
[67.0 (3%... 0") 
{100 . "АСОВТЕХТ”") 


(101.0 4700.0) начальная точка 


-a 


E .1.5] ; высота 

(1 . "Доброе утро") ; текст 

50...00) ; угол поворота (радианы} 
ПР, ; степень растяжения 
ры ОВ) ; угол наклона 
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(7 . "ЭТАМРАВО") гарнитура шрифта 


ъе =o 


(71 . 0) флаги генерации 

(72 . 0} ; тип выравнивания 

(11 0.0 0.0 0.0) ; точка выравнивания 

(910 6.09.0 1.0) ; вектор направления выдавливания 
(1009 . “"АСОВТЕХТ”) 

ЧЕТ 


) 
(ENTSEL [<подсказка>]) — вызывает имя примитива по указанной точке; 


10) 
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Te yae a D0339 (1.0 2:0 0. 0)) 
(HANDENT <метка>) — возвращает HMA примитива по метке; 


Command: (НАМОЕМТ "4F") 
«ЕМЕТТУ МАМЕ: 31D0538> 


(TEXTBOX...) - возвращает диагональные координаты поля, которое 
включает текстовый объект. Если использовать предыдущий пример, то 
результат от вызова функции (TEXTBOX Е) будет таким: 


Сознаазс: (ТЫХТВОХ Е) 
о Ее) 
(SSGET [<способ выбора примитивов>|[<точка1>[<точка2>]]) — co- 


здает набор примитивов: 


— 


(55255) ; запрашивает способ выбора примитивов 
(SSBS "T ) ; выбирает текущий набор примитивов 
SSCP I) ; выбирает последний примитив 
SÆT {2 3) ; выбирает примитив, проходящий через точку 
(3SCEP "P" '(0 0) '(3 4)) ; выбирает примитив в рамке 
Бары “С” “600)} 3A) ; выбирает примитивы, пересекаемые рамкой 
(SECET "Z" «бильто-список>) ; выбирает примитивы в соответствии 

; C фильтром-списком 


Фильтр-список — это список точечных пар подобных типу списка, воз- 
вращаемых функцией (ЕМТСЕТ...). 
Например: 
(СОСЕТ "Z" '((0 . "СТВСЬЕ*))) ; возвращает набор из кругов 


Для функции (SSGET "Х"...) доступны следующие коды: 
0 — тип примитива; 

2 — имя блока для описания блока; 

6 — имя типа линии; 

7 — имя гарнитуры шрифта текста или атрибутов; 

8 — имя слоя; 
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38 — уровень; 
39 — высота; 
62 — код цвета (0 по блоку и 256 -— по слою); 
66 — следующий за атрибутом флаг в описании блока; 
210 - вектор направления выдавливания. 
(SSLENGTH <набор>) — определяет число примитивов в наборе; 
(5ЗМАМЕ <набор> <номер примитива в наборе>) — возвращает имя при- 
митива по номеру примитива в наборе. Первый примитив имеет номер 0; 
(SSADD [<имя примитива>][<набор>]) - добавляет имя примитива 
в набор; . í 
(SSDEL [<uma примитива>]|[<набор>]) — удаляет HMA примитива 
из набора; — 
(SSMEMB [<имя примитива>]|[<набор>]) —- проверяет наличие прими- 
тива в наборе. 


2.3.8. Особые функции 


(QUOTE <выражение>) - блокировка вычисления выражения: 


(QUOTE (A BC D)}) ‚ вызов Функции 
(A BCD) ; результат выполнения функции 
'<выражение> — блокировка вычисления выражения; 
'(АВСОЕ) ; ВЫЗОВ ФУНКЦИИ 
(ABCDE) ; результат выполнения 
(EVAL <выражение>) — вычисление любого, правильно составленного 
выражения (обычно присутствует неявно). 
Например, выражения (EVAL (ABS -3.5)) и (ABS -3.5) равносильны; 
(DEFUN <имя функции> ([<список аргументов>...| [/<локальная ne- 
ременная> |) <выражение>...) — определение новой функции: имя Функ- 
ции — это любая последовательность символов; список аргументов — это 
список переменных, значения которых должны быть определены до вы- 
полнения функции; локальные переменные — это переменные, действие 
которых ограничено данной функцией. Значением функции является зна- 
чение последнего выполняемого выражения. Память под локальные пере- 
менные выделяется только во время вычисления функции; 


(DEFUN SIN2 (X) 3 ; функция под именем SIN2 
(* {SIN X} (SIN X))) ; вычисляет SIN в квадрате 
(LAMBDA <аргумент> <выражение>...) — определение функции без 
имени; 
(APPLY ' (LAMBDA (ХУ) (+ (* ХХ) (#УУ)}) '(53)) 


34 ; результат выполнения функции без имени 
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(ЕГМОЕШЕ <”"имя файла">) — поиск файла с данным именем, а возвра- 
щение и с именем каталога; 
(FINDFILE "VAL1.LSP”) ; вызов функции 
АСТРА WALI. LSP" ; результат выполнения 
(LOAD <”"имя файла">) — функция загрузки файла и выполнения его, 
имя файла без расширения (подразумевается расширение LSP); 
(LOAD "С: \\АБТЬРА\УАЬ1") 
(СЕТУАК <”"имя системной переменной">) — определение значения 
системной переменной AutoCAD в данный момент; 
(СЕТУЛАЕ "“ОТМТХТ” ) ; определение высоты символов текста 


9.18 ; результат 
(ЗЕТУАВ <"имя системной переменной”"> <значение>) — присваивание 
системной переменной AutoCAD определенного значения; 
VER "BLIDMODE" 0) ; удаление изображения маркера 
(SETAR "СМГЕСНО" 0) ; удаление эха команд 
(TRACE <имя функции>...) — выдача результатов выполнения функций; 
(ОМТКАСЕ <имя функцин>...) — конец отслеживания функции. 


2.4. Дополнительные функции языка AutoLISP 


(АЧТОСАР_СОГОВОГС <целое число> [NIL]) — определение цвета. 
Целое число в диапазоне 0—256 определяет цвет; 
ÈJTOCZD_COLORDIG 3) ; определяет зеленый цвет 
(AUTOCAD НЕГРОТС НЕГРЕШЕ TOPIC) - вызывает устаревшие 
средства справки; 
(AUTOCAD STRLSORT <список>) — сортирует список строк в aipa- 
витном порядке; 
(СЕТО MOS '( "ЗАМ" "РЕВ" "MAR" “АРВ” "МАУ" "JUN" "JUL" 
оО" ASPE” "OCT: “NOVA ВЕ) 
(ŁUTCCAD_STRLSORT MOS) 
rappt "ADG" "DEC" *РЕВ" "ЗАМ" "JUL" "JUN", "MAR" "МАУ" "МОМ" "ОСТ" "5ЕР") 
(ACTION _TILE <имя подокна> <выражение действия>) — определяет 
действия, когда пользователь выбирает определенное подокно в диалого- 


вом окне; 
(ADD_LIST <строка>) — добавляет или изменяет строки в настоящее 


время в активном списке диалогового окна, 


(SETQ LLIST ' (“первая строка " " вторая строка " " третья строка ")} 
(СТЕВТ ТУТ "LONGLIST") 
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({МАРСАК 'ADD_LIST LLIST) 
(END_LIST) 


(ADS) - возвращает список имен в настоящее время загруженных при- 
ложений и их пути; 


(ADS) ; вызов ФУНЕЦИИ 
("ЕТЬЕЗ/РКОС$/РКОС1" "РВОС2"} ; результат выполнения 


(ALERT <строка>) — отображает поле ALERT с ошибкой или пред- 
упреждающим сообщением, переданным как строка. 
Поле ALERT - диалоговое окно с одиночной кнопкой ОК; 


(ALERT " Эта функция недоступна.") 


D 
(ALLOC <целое число>) — устанавливает размер сегмента к данному . 


числу узлов. Функция возвращает предыдущий размер сегмента; 
(ARX) - возвращает список в настоящее время загруженных приложе- 
ний АКХ с их путями; 


(АВХ) 
("ЕТЬЕЗ/РВОС$/РКОС1" "PROG2") 


(АВХГОАРО <приложение> [параметр]) — загружает приложение ARX; 


(ARXLOAD "/МУАРРЗ/АРРХ") 
"/МУАРРЗ/АРРХ" 


(АВХОМГОАО <приложение> [параметр]) — разгружает приложение 
АВХ; 
(АВХОМГОАР "АРРХ") 
“АРРХ” 
(АТОМ$5-ЕАМПУ <0 или 1> [список строк]) — возвращает список 
в настоящее время определенных символов: если 0, то совокупность ато- 
мов возвращает имя символа как список. Если 1, возвращается имя сим- 
вола как список строк; 


(ATOMS-FAMILY 1 '("САВ" "CDR" "XYZ")) 
("CAR" "CDR" NIL ) 


(AUTOARXLOAD <имя> <список строк>) — предопределяет название 
команды, чтобы загрузить связанный файл ARX; 
(AUTOARXLOAD "ВОМОЗАРР" '(" АРР1 " " АРР2 " " АРРЗ ")) 
(АЧТОГОАО <имя LSP файла > <список строк>) — загружает LSP файл; 
(AUTOLOAD "ВОМОЗАРР" '(" АРР1 " " АРР2 " " АРРЗ ")) 


(AUTOXLOAD <имя приложение ADS > <список строк>) —- предопре- 
деляет название команды, чтобы загрузить связанное приложение ADS; 


(AUTOXLOAD "BONUSAPP" '{" APP1 " " APP2 " " APP3 ")} 


О a 
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(СЫЕМТ_ РАТА_ТПЕ <подокно> <данные>) — связывает управляе- 
мые приложением данные с подокном диалогового окна; 

(DICTADD <имя словаря> <имя объекта> <объект>) — добавляет He- 
графический объект в словарь с уникальным именем объекта; 

(ОТСТМЕХТ <имя объекта> [S]) - находит имя объекта в словаре. Если 
параметр $ есть и не NIL, то восстанавливается поиск сначала. Если вход 
наиден. возвращается список точечных пар кодов типа DXF и значений; 

(DICTREMOVE <имя словаря> <имя объекта>) — удаляет объект из 
словаря; 

(DICTRENAME <имя словаря> <старое имя> <новое имя>) — nepe- 
именовывает старое имя на новое в словаре; 

(DIMX_ ТИПЕ <"подокно">) — возвращает ширину подокна; 

(DIMY_TILE <"подокно">) — возвращает высоту подокна. 

Функции (DIMX TILE...) и (ОГПМУ TILE...) используются с функция- 
ми (УЕСТОК [МАСЕ...), (FILL _ IMAGE...) и (SLIDE МАСЕ...), kOTO- 
рые требуют. чтобы были определены абсолютные координаты подокна; 

(DONE_DIALOG [целое число]) — завершает диалоговое окно и выда- 
ет координаты диалогового окна. Эта функция вызывается изнутри выра- 
жения действия или функции повторного вызова. 0 — отмена диалогового 
окна. Значение состояния, большее чем 1, зависит от вашего приложения; 

(ЕМО ТМАСР) - окончание создания активного изображения диалого- 
вого окна. Эта функция — дополнение к функции (START МАСЕ...); 

(END_LIST) — окончание обработки активного списка диалогового 
окна. Эта функция — дополнение к функции (ТАКТ ШЪТ...); 

(COMMAND [команды AutoCAD и их параметры |...) — выполняет за- 
данные команды AutoCAD; 

Строка пустого указателя (" ") эквивалентна нажатию клавиши Enter на 
клавиатуре. Вызов функции (COMMAND...) без параметров эквивалентен 
нажатию клавиши Е$с и отменяет большинство команд AutoCAD. 

Функция (COMMAND...) оценивает каждый аргумент и посылает его 
в AutoCAD в ответ на последовательные подсказки. 

(SETO PT1 "(2 3) PI2 {7 87} 
(COMMAND "LINE" PT1 PT2 "") 

В результате будет изображена линия от точки с координатами (2,3) до 
точки (7,8). 

Если приложение использует иностранный язык в AutoCAD, названия 
команд должны начинаться с подчеркивания, с тем чтобы они могли 
транслироваться. Когда используется префикс точки (чтобы избежать ис- 
пользования переопределенных команд), подчеркивание можно разме- 
щать в любом порядке: и". ГЛМЕ", и "LINE" допустимы. 


СО 


Дополнительные функции языка AutoLISP 75 


Команды, выполненные из функции (COMMAND...), не отображаются 
на экране в командной строке, если переменная системы СМОЕСНО 


установлена в 0. 

Функции ввода пользователя (СЕТХХХ...), (СЕТАМСГЕ...), (СЕТ- 
STRING...), (СЕТТМТ...), (СЕТРОТМТ...) и т. д. не должны использоваться 
внутри функции (СОММАМО...). В противном случае на экране появится 
следующее сообщение: AutoCAD rejected function (AutoCAD отклонил 
функцию). 

(СУИМТ <число или список чисел> <исходная система измерения> 
<требуемая система измерения>) — преобразует числа из одной системы 
измерения в другую. 

Функция (CV UNIT...) успешно проводит преобразование, если исполь- 
зуемые системы измерений есть в файле АОТОСАО.ОМТ и если они co- 


вместимы по размерности, 


(СУОМТТ 3 "MINUTE" "5ЕСОЮ" ) ; вызов функции 
180-0 ; результат 
(CVUNIT 2.0 "INCH" "6 

Se Up 


(ЕЕ "(10 924) “EPS CM") 
(30.48 1032632) 

(GETENV...) — обеспечивает доступ подпрограммам AutoLISP к теку- 
щим значениям переменных среды операционной системы: 

(СЕТСЕС...) и (ЗЕТСЕС...) - позволяют в приложениях AutoLISP 
просматривать и изменять значения параметров в разделе APPDATA фай- 
ла AUTOCAD14.CFG. 

(МЕМОСМО...) — управляет показом графических окон меню. Эта Фун- 
кция отображает, изменяет или делает запрос с одного из подменю теку- 
щего меню и принимает строковый параметр, который определяет подме- 
ню и его действие, чтобы впоследствии выполнить его. 

Строковый параметр состоит из двух полей, отделяемых знаком =. Оп 
может выглядеть, к примеру, следующим образом: 

"МЕМО_АВЕА=АСТТОМ" 
(МЕМОСМО "S=OSNAP") ; отображает экранное подменю **'ОСМАР 

(TEXTSCR) — отображает текстовое окно; 

(ТЕХТРАСЕ) - очищает текстовое окно перед отображением текстово- 
го окна; 

(REDRAW) - перерисовка всей графической области, она может опре- 
делять одиночный объект, который будет (или нет) выведен повторно. 
Если объект сложный, типа ломаной линии или блока, может быть произ- 
ведена перерисовка всего объекта или его заголовка; 
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(СВТЕХТ...) — обеспечивает показ текста непосредственно на экране 
или в областях меню, с высвечиванием или без него; 

(СВОКАМ...) — рисует вектор в текущей области просмотра с контро- 
лем над цветом и высвечиванием; 

(СКУЕС$...) — рисует множественные векторы. 


2.4.1. Примеры определения 
пользовательских функций 


Определим функцию под именем СОРУТ, которая строит копию списка L. 


(СЕРОМ COPYL 5 
(COND ((NULL L) NIL) 
(T (CONS (CAR L}).(COPYL (CDR L))))) 
) 
(COSG (A B C DEJ] ; обращение к функции 
(a BCDE) ; результат 
Определим функцию под именем REMOVE, которая удаляет из списка L все 
совпадающие с данным символом А (списком) элементы. 
(DEFUN REMOVE (А L) 
(CONS ((NULL L) NIL) 
( (EQUAL A (CAR L)) (REMOVE A (CDR L))) 
(T (CONS (CAR L) (REMOVE A (CDR L))}))) 
и. 
(ВЕ [OVE "А '(СБЕАС)) ; обращение к функции 
(СРЕС) ; результат 
Определим функцию под именем ЕАЮТУАВ, которая проверяет, находится 
ли элемент А ранее элемента В в списке L в соответствии 
с заданным упорядоченным списком LU. 
(DEFUN ЕАРГУАВ (АВ LU) 
(COND ((NULL LU) NIL) | 
((ЕОА (CAR LU)) T) 
( (EQ B (CAR LU)}) NIL) 
(T (EARLYAB А B (CDR LU)))) 
) 
(ЕАВЬУАВ 'С 'Е '(АВСВЕЕ)) ; обращение к функции 
T ; результат 
_ Определим функцию под именем АРОМ, которая прибавляет к числовым 
элементам списка Г. число М. 
(DEFUN ЕБОМЬ (N L) 


(COND ((NULL L) NIL) 
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(T (CONS (+ N (CAR 1) } (ADDNL М (CDR Ь))))) 
= 5 ' (6 7 10)) ; обращение K функции 
(11 12 15) ; результат 
Определим функиию под именем ИМЕРЙМ, которая изображает горизон- 
тальную линию с заданным числом выбранного знака. 
(DEFUN LINEZN (М ZNAK) 


(COND ((= N 0) ({PRINC)) l 
(T (PRINC ZNAK) (LINEZN (- N 1) ZNAK))}) 


(Av 


) | 
(LINEZN 16 “*")} ; обращение к Функции 
р помесь ; результат 


Вместо звездочки в функции (LINEZN...) можно использовать и другие 
символы, например, + и т. д. 

Определим функиию под именем ММОЛ, которая преобразует список в MHO- 
жество, то есть в список, в который каждый элемент входит только один раз. 


(DEFUN MNOJL ( L) 
(COND ((NULL L) NIL) 
( (MEMBER (CAR L) (CDR L)) (MNOJL {CDR L))) 
(T (CONS (CAR L) (MNOJL (CDR Ь))))) 
) 
(MNOJL '(ABAD)) ; обращение к функции 
(BAD) ; результат 


Определим функиию под именем DELLAST, которая удаляет последний 
элемент списка. 


(DEFUN DELLAST ( L ) 
(COND ((NULL L) NIL) 
( (NULL (CDR L)) NIL) 
T (CONS (CAR L) (DELLAST (CDR 1)})))} 
) 
(DELLAST ' (A BC DE})) ; обращение к функции 
(A BC D) ; результат 


Определим функиию под именем ASSOCL, которая строит ассоциативный 
список. 


(DEFUN АЗЗОСЬ (11 L2) 
(МАРСАВ 'CONS L1 L2) 
l | 
(ASSOCL ' (123) ' (ONE TWO ТНВЕЕ))  ; обращение к функции 
((1 . ONE) (2 . TWO) (3. THREE)) ; результат выполнения 
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Определим функцию под именем ВЕАПГ, которая из множества вводимых 
элементов в строке образует список элементов. 


(DEFUN ВЕЗОГ ()} 
(PRINC (STRCAT "(" (ВЕАО-ЬТМЕ) ")")) 


} 

(READL) ; обращение к функции 

ARC 1232 ; вводимые данные с клавиатуры 
(aBC 12 34) ; результат работы функции 


Определим функцию под именем READS, которая считывает строку в виде 
списка из файла. Запрос названия диска, каталога и имени файла должен 
проводиться в диалоговом режиме. 

(DEFUN READS () 

(SETQ DD (GETSTRING "\n Введите имя диска - "') 

C (GETSTRING *\п Введите имя каталога - ") 
EE (СЕТОТВТМС "\п Введите имя файла - ") 
ЕЕ -5 ARCAT DD TXA" CC MNN" ББ 
PF (EVAL (LIST “OPEN F1 ""х*)} 

S р (ЗТВСАТ "{" (READ-LINE ЕР) ")"))) 


(READS) ; обращение к функции 

Допустим, файл под именем ЗЕТОСВК.ВЕЙ содержится на диске С: 
в каталоге ORGANIZA. Первая строка файла выглядит так: 10 11. Тогда 
при обращении к функции под именем READS появится следующая 3a- 
прашивающая информация. Справа приведены ответы: 


Введите имя диска - С ; вводим имя диска С 

ВЕедите имя каталога - ORGANIZA ; вводим имя каталога 
=едите имя файла - ЗЕТОСК.ВЕЙ ; вводим имя файла 

Го ВВ ; результат работы функции 


Далее обратимся к функциям для выполнения различных вычислитель- 


ных операций. 
Определим функиию под именем FACT для расчета факториала с использо- 
ванием рекуррентной формулы 
N! = N * (М-1) * (М2) *...3*2*1 
HJIH 
М! = М * (N-i)! - 
(СЕРОМ FECT (М) 
(ТЕ (=N0) 1 (*N (РАСТ (-№1)))) 


) 
(РАСТ 4) ; обращение к функции 


24 ’ р результат 
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Одной из наиболее часто НЫ, операций при работе со спис- 
ками является их соединение. 
Определим функцию под именем АРРЕМО, которая по двум спискам стро- 
ит новый список, содержащий в определенной последовательности все 
элементы первого и второго списков. 


(DEFUN APPEND (L1 L2) ; соединение двух списков в один 
(ТР (NULL L1) L2 (CONS (CAR L1) (APPEND (CDR L1) 12})) 


) | 
(APPEND ' (ABC) '(ФЕЕСН)) ‚ вызов функции 


(ABCDEFGH) ; результат работы функции | e 


Определим функцию под именем MNOGST, которая вычисляет стеленной 
многочлен 
о A T A E A 
Для вычисления степенного многочлена используем схему Горнера 
YA TRO TACA TRELA To 
которая обеспечивает получение результата при минимальном числе One- 
раций. 


(DEFUN MNOGST (X ГА) ; функция вычисления многочлена 

(SETQ Y0 
N (LENGTH LA) ; определение числа членов в многочлене 
I 0) 

(REPEAT (- М1) 

(SETO I (+ I 1) 
Y (* X {t {NTH (+N I} LAJ Y)))) 
(SETQ Y (+ (NTH 0 LA) Y)) 


Запишем данную функцию в файл под именем MNOGST.LSP. Допус- 
тим, этот файл находится на диске С: в подкаталоге LISP каталога 
AUTOCAD. Обращение к этому файлу будет выглядеть так: 

С: \\AUTOCAD\ \LISP\ \ММОСЕТ. LSP 

Далее в этом же файле запишем оператор для вывода результатов pac- 
чета в этот же файл. 

(SETQ FW (OPEN "C:\\AUTOCAD\\LISP\\MNOGST.LSP" "а”)) 

Переменную FW часто называют дескриптором файла. 

Вызовем в том же файле функцию под именем ММОС$Т для вычисле- 
ния заданного степенного многочлена, например, многочлена вида: 

Ya 0.5 FAIK ЭХ РАХ Ех 

для X = 2. 


80 Основы программирования 


(MNOGST 2 '(0.512345)) ; Обращение к функции 
Запишем результат расчета в файл ММОСЗТ.Т.$Р. 
(PRINT Y FW) ; вывод результатов в файл с дескриптором FW 
Ниже представлен результат расчета, записанный в файл MNOGST.LSP. 
258.5 ; результат 


Определим функцию под именем СНЕВ, которая вычисляет полином Чебы- 
шева. Для вычисления полиномов Чебышева первого рода известна явная 


и рекуррентная формулы: 


N2- (N -M -1)! 
ри 2>. в 


(= 2X T3) -Ta © 


В явной формуле верхний индекс суммирования означает ближайшее 
целое число, не превосходящее N/2. 

Рекуррентную формулу чаще всего применяют при М >= 1, полагая 
(С) =1иТ(Х) = Х. 


2x 


(DEFUN CHEB (X N) ; Функция вычисления полинома Чебышева. 
(COND ((=0№0) 1) 
((EON 1) X) 
pw (T (- (* 2 X (CHEB X (- N 1))) (CHEB X (- N 2)))) 


) 

Запишем данную функцию в файл под именем CHEB.LSP, Далее в этом 
же файле запишем оператор для вывода результатов расчета в этот же 
фаил. 

(SETQ FW (OPEN "С:\\АБТЗР\\СНЕВ.Ь5Р" "а")) 

Вызовем функцию под именем CHEB для вычисления полинома Чебы- 
шева с заданными параметрами и проведем вывод результатов расчета 
в файл с дескриптором FW. 


(PRINT (CHEB 2 5) FW) ; обращение к функции 
Ниже представлен результат расчета, записанный в файл СНЕВ.ГЗР. 
362 ; результат 


В отличие от языков высокого уровня, LISP, в том числе AutoLISP, npe- 
доставляет возможность конструирования функций языка самой про- 
граммой и последующего ее выполнения. В качестве примера составим 
программу, которая сформирует функцию под именем МАХО для опреде- 
ления максимального из чисел, вводимых в диалоговом режиме. 
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(SETQ А (LIST МАХ} } ; определение начального списка А 
(SETO М (GETINT "\п Введите число чисел в массиве. N = ") 
Ti) 
(REPEAT N : 
(SETQ В (СЕТВЕАГ (5ТВСАТ "\п Введите " (ТТОА I) "-е число: ")) 
I (t L1) 
А (CONS ВА} ; формирование списка А 
) 
) 
(SETQ MAXD (REVERSE А) } ; формирование функции в виде списка 
(EVAL МАХ}. ; выполнение функции 


После загрузки файла в командной строке появятся запросы. Необхо- 
димо ввести нужную информацию, например: 


Введите число чисел в массиве. М = 6 
Введите 1-е число: 5.5 

Введите 2-е число: 7 

Введите 3-е число: 10.45 

Введите 4-е число: 3.1 

Введите 5-е число: 9 

Введите 6-е число: 1.17 

10.45 ; результат 


Определим функцию под именем MODES, которая сохраняет значения CH- 
стемных переменных: 


(DEFUN MODES (L) 
(SETQ MLST NIL) 
(REPEAT (LENGTH L) : 
(SETQ MLST (APPEND MLST (LIST (LIST (CAR L) 
(GETVAR (CAR 1.))})}) 
(SETQ L (CDR L))) 
) 
Затем вызовем функцию MODES для сохранения определенных сис- 
темных переменных, например: 
(MODES '{ "BLIPMODE" "СВТОМОБЕ" "ОВБТНОМОБЕ" "OSMODE" 
"ЗОВЕТАВ1" "ЗОВЕТАВ2" "UCSFOLLOW"”) ) 
Определим функцию под именем MODER, которая восстанавливает значе- 
ния системных переменных: 
(DEFUN MODER () 
(REPEAT (LENGTH MLST)} 
(ЗЕТУАВ (CAAR MLST) (CADAR MLST) ) 
(SETQ MLST (CDR MLST)}) 


e0 
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2.5. Программирование на AutoLISP в среде 
Visual LISP 


Visual LISP имеет ряд инструментальных средств и возможностей для 
облегчения разработки программ на языке AutoLISP. 
При использовании Visual LISP разработка программы на языке 
AutoLISP включает следующие основные этапы: 
° разработку последовательности действий решения задачи; 
° разработку программы; 
e форматирование программы для большей наглядности; 
° поиск синтаксических ошибок в программе; 
e тестирование и проверку работоспособности программы. 
Ввод текста программы производится в окне консоли после подсказки 
_>. Развернутое окно консоли с введенной программой представлено на 
ри. 2. 
Следует помнить, что текст, который вводится в окне консоли Visual LISP 
а также любой результат выполнения можно сохранять для дальнейшего 


4 Visual LISP юг AutoCAD Release 14- [Visual USP Console] 


G) Ре Ecn Search View Project Debug Tools Window Help. Tia] 
hsna зъа ое ры УИ 

ет бла |9 ®Ф Их » © O A| | a риа $ y= = @) 

-$ - 
|; Опредепение Функции pna решения игры - “Ханойская башня“. ! i A 


N брусков разных размеров пежат на основании 1 B виде пирамиды, \ ‚м 
; Они допжны быть перенещены на основание 2. Имеется еще и промне- 
; жуточное основание 3. Брусок взятый с вершины одной иэ пирамид 
; ножет размещаться пибо на бопьший брусок, пибо на пустое основание 
; Решение задачи понестить в хайп под иненен HANOI.REZ на диске С: 
(SETQ F1 ГОРЕМ “С:\\НАНОТ.РЕ?” “w”)) 
(SETQ ГО! 
(DEFUN HANOI (М $1 $2 $3) 
{COND Г(= N O) NILL) 

Г(> N 0) (HANOI (- N 1) $1 $3 $2) 

(SETQ I (+ I 1)) 


(PRINC (STRCAT “\п” (ITOA Г) poa 
“. Переместить брусок из пираниды ” $1 “ в пирамиду “ $2) ЕТ) ',* 
(HANOI (- N 1) $3 $2 $1) м 

) 


` 


J 


) 
{COMMAND “ТЕХТЗСР”) 
(HANOI 4 “1” “2” "3”) (CLOSE F1) 


Зы хх отва а тя кк мя чи мрт, м, 


Í Visual USP console window — = o 5 S T o n a A aa s [C 00002 C 00001: 


Рис. 2.2. Розвернутое окно консоли Visual LISP 
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просмотра. Кроме того, любой текст в окне можно копировать и вставлять 
его в ответ на подсказку или в другое приложение Windows. 

Консоль системы Visual LISP во многом схожа с командным окном 
AutoCAD, однако располагает рядом дополнительных возможностей. Ha- 
пример, чтобы отобразить текущее значение переменной AutoLISP 
в Visual LISP, достаточно напечатать имя переменной в окне консоли 
и нажать клавишу Enter, а чтобы просмотреть значение переменной 
в AutoCAD, необходимо напечатать имя переменной с восклицательным 
знаком впереди (!) и также нажать клавишу Enter. 

Консоль AutoLISP имеет и другие дополнительные возможности: 

° ввод выражения AutoLISP в строке, которая определяется нажатием 

комбинации клавиш Ctrl+Enter; 

. ввод больше чем одного выражения перед нажатием клавиши Enter, 

и Visual LISP оценит каждое выражение перед выдачей результата на 
консоли. 

Если курсор находится в окне консоли, но не на подсказке, то после на- 
KATHA клавиши Enter курсор перемещается в подсказку. 

Если вы наберете текст в окне консоли прежде, чем нажмете Enter (па- 
пример, результат предыдущей команды или предварительно введенного 
выражения), Visual LISP скопирует выбранный текст после подсказки. 

Чтобы вернуться к предпоследнему введенному тексту в окне консоли, 
необходимо пажать клавишу Tab. Каждый раз после нажатия клавиши Tab 
ранее введенный текст заменяет текст в подсказке окна коисоли. Как толь- 
ко процесс дойдет до первой введеиной строкн, он повторяется снова. 

Комбинация клавиш Shift+Tab действует подобно Tab, но листает вход- 
ную хронологию в обратном направлении. 

Клавиша Tab допускает ассоциативный поиск во входной хронологии. 
Например, если вы напечатаете знаки (+ в подсказке консоли и нажмете 
клавишу Tab, Visual LISP произведет поиск последнего текста, который 
начинался с символов (+, а если такого текста нет, то, возможно, появится 
звуковой сигнал. Комбинацию клавиш Shift+Tab можно использовать для 
того, чтобы осуществить ассоцнативный поиск от ранних до более поздних 
ВВОДОВ. 

Клавиша Esc очищает окно консоли после подсказки. Нажатие комби- 
нации клавиш Shift+Esc оставляет ранес введенный текст, но приводит 
к новой подсказке без выполнения ранее введенного текста. 

Нанболее важные функции, необходимые при работе в окне консоли, 
сосредоточены в контекстном меню. Для быстрого вызова контекстного 
меню щелкните правой кнопкой мышки в любом месте окна консоли HJIH 
нажмите комбинацию клавиш ЗЫ Ё+Е10 (рис. 2.3). 
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В зависимости от позиции курсора, а также от того, имеется ли выделен- 
ный текст в окне консоли, некоторые операции могут быть неактивными. 
Данное контекстное меню содержит следующие команды: 


e Cut (Вырезать) — удаляет выделенный текст ри Е и 
из окна и перемещает его в буфер; Кое Сер E n И 
e Copy (Копировать) — копирует выбранный | Paste 
текст в буфер обмена Windows (СПрВоага); Clear Console Window 
e Paste (Вставить) — вставляет содержимое И 


буфера обмена в место расположения кур- — 
сора; | Inspect... 
e Clear Console Window (Очистить окно KOH- iin т 4 
горо$ vYiIndow... 
соли) — очищает окно консоли; ря 
я $ Symbo! Service... 
e Find (Найти) — открывает диалоговое окно 


поиска задаваемого фрагмента; H Unda 
e Inspect (Проверить) — открывает диалого- | 2899 
вое окно просмотра выражения; AutoCAD Mode 


e Add Watch (Добавить наблюдение) — откры- Toggle Console Log... 
вает диалоговое окно наблюдения выражения; 
e Apropos Window (Окно поиска по фрагмен- 
ту) — открывает диалоговое окно для Ha- 
стройки системы поиска слова по фрагменту; 
e Symbol Service (Обслуживание символов) — открывает диалоговое 
окно обслуживания символов; 
e Undo (Отменить) — отменяет последнюю выполненную команду; 
e Redo (Восстановить) — восстанавливает последнюю отмененную KO- 
манду; 
e AutoCAD Mode (Режим AutoCAD) - передает весь ввод командной 
строке AutoCAD; 
e Toggle Console Log (Установить/удалить файл регистрации) — откры- 
вает диалоговое окно Open Log (Открыть файл регистрации). 
Обратите внимание, что между окном консоли Visual LISP и окном KO- 
мандных строк AutoCAD текст можно «вырезать и вставлять». Кроме того, 
окно консоли Visual LISP и окно командных строк AutoCAD отличаются 
по способу, которым обрабатываются клавиши Space и Tab. В окне konco- 
ли Visual LISP пробел не играет никакой роли и служит только раздели- 
телем. Если в окне командных строк AutoCAD нажать клавишу Space не 
внутри выражения, это вызовет окончание ввода и обработку текста, как 
если бы вы нажали клавишу Enter (Ввод). 
Как только вы начнете вводить текст после подсказки в окне консоли, 
Visual LISP определяет, чем является введенное слово — встроенной 


Рис. 23. Контекстное меню 
окна консоли 
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функцией AutoLISP, числом, строкой или другим элементом. Каждый 
тип элемента языка наделяется собственным цветом. 

Если вы вводите имя функции в окне консоли после подсказки, то, щел- 
кнув по кнопке Help (Помощь) на инструментальной панели Tools (Инст- 
рументы), получите справку Visual LISP о функции. Это правило действу- 
ет в отношении любых элементов AutoLISP, Visual LISP или функции 
(ACTIVEX), распознанных Visual LISP. 

Вы можете сохранить запись всех действий в окне консоли, если заре- 
гистрируете эти действия в Log (регистрационном) файле. Позже у вас бу- 
дет возможность просмотреть файл и проанализировать действия, KOTO- 
рые выполнялись в окне консоли. 

Чтобы создать файл регистрации, выберите команду Toggle Console Log 
(Установить/удалить файл регистрации) падающего меню File (Файл) 
главного меню Visual LISP. При этом окно консоли должно быть актив- 
ным. На экране появится диалоговое окно Open Log (Открыть файл peru- 
страции) (рис. 2.4). 

Выберите каталог для файла регистрации, а затем определите название 
файла. Если такой файл существует, на экране появится запрос о добавле- 
нии данных к уже имеющемуся файлу (рис. 2.5). 

Допустим, файл регистрации уже существует (Log file С\Мои noky- 
менты\Аот.ГОС already exists). Если на вопрос Append log to existing file? 
(Присоединить регистрационные данные к существующему файлу?) вы 
ответите Yes (Да), Visual LISP добавит ннформацию с консоли к текущему 


Open loc 


Папка: [© мои докуметы = |] Al = 


` ^твзеир\ 
Corel User Files 
Microsoft 


p a 


_— - > -=---щ---> — Pe gae rm sa ae . = . es “ EEr AD P а 
. 9 ` Ey у ra — e i "i ~ 
= — p. > r 
у 


Имя файла: | | Сохранить 


L Тип файла: [Log Files (*.lo9) -| Отмена | 


Z 


Рис. 2.4. Диалоговое окно открытия файла регистрации 
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{2} Logfile С\Мои документь\Чот.ГОС 
already exists. 
Append log to existing file? 


Отмена | 


Рис. 2.5. Запрос о добовлении данных к существующему фойлу регистрации 


содержанию файла. В случае если вы предпочтете ответить № (Нет), 
Visual LISP также произведет запись в файл с этим же именем, однако Nep- 
воначальное содержимое файла будет потеряно. Чтобы завершить опера- 
цию и присвоить файлу другое имя, нажмите кнопку Отмена (Сапсе]). 

Для того чтобы завершить регистрацию и закрыть соответствующий 
файл. выберите пункт Toggle Console Log (Установить/удалить файл pe- 
гистрации) из падающего меню File (Файл). По названию окна консоли 
можно определить, находится ли консоль в состоянии регистрации. Если 
регистрация проводится, то в названии окна отражено имя файла регист- 
рации. Когда регистрация выключена, имя файла в названии окна консо- 
ли отсутствует. 

Если вы забыли закрыть файл регистрации до выхода из Visual LISP, 
система сделает это автоматически. После закрытия файла регистрации вы 
можете просматривать его содержимое в любом текстовом редакторе типа 
Visual LISP. 

Обратите внимание на возможность непосредственного взаимодействия 
через окно консоли AutoLISP с AutoCAD. Чтобы включить этот режим, 
выберите пункт AutoCAD Mode (Режим AutoCAD) из падающего меню 
Tools (Инструменты) главного меню Visual LISP или обратитесь к пункту 
AutoCAD Mode (Режим AutoCAD) в контекстном меню консоли. Под- 
сказка в окне консоли изменится на COMMAND. 

Любая последовательность символов, введенная после этой подсказки, 
будет рассматриваться как командная строка AutoCAD. Таким образом, 
у вас появится возможность вводить команды AutoCAD изнутри Visual 
LISP. 

Рабочая среда AutoLISP отличается от рабочей среды Visual LISP. 

Покажем это на следующих примерах. 

$ (SETQ Z 1) ; присваивает X значение 1 в среде Visual LISP 


СОММАМО: (SETQ Y 2)  ; присваивает У значение 2 в среде AutoLISP 
COMMEND: !Z ; отображает NIL в командной строке AutoCAD 
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TSA 

NIL 

Bom 

] F 

Чтобы вернуться к окну консоли Visual LISP, выберите пункт AutoCAD 
Mode (Режим AutoCAD) так же, как вы делали это при переключении 
в AutoCAD. Пункт меню AutoCAD Моде (Режим AutoCAD) работает как 
переключатель «вкл\выкл». 

Не исключено, что возникнет ситуация, когда консоль Visual LISẸ 6y- 
дет ждать ввода из AutoCAD, а AutoCAD будет полагать, что управление 
передано Visual LISP. В таком случае можно попробовать прервать коман- 
ду AutoCAD и вернуться в Visual LISP. 

Если в окне консоли Visual LISP появится следующая подсказка: 

1$ 
; Entering keyboard break loop 

необходимо возвратить управление AutoCAD и нажать клавишу Esc для 
перехода в рабочую среду Visual LISP. Чтобы возвратить управление Auto- 
САО, нажмите кнопку Activate AutoCAD (Активизировать AutoCAD) 
на инструментальной панели View (Просмотр). 

После нажатия клавиши Esc в AutoCAD можно продолжать взаимодей- 
ствие с консолью Visual LISP. 

Текстовый редактор — один из основных компонентов Visual LISP. Он 
прост в использовании и располагает рядом возможностей, которые упро- 
щают процесс программирования на AutoLISP. К таким возможностям 
текстового редактора относятся: 

° выделение правильных выражений AutoLISP; 

e отслеживание парных круглых скобок; 

* выделение цветом различных элементов программы согласно синтак- 

сису языка; 

. выполнение правильных конструкций выражения AutoLISP без выхо- 

да из окна редактора. 

Большинство команд текстового редактора вызываются из строки меню: 
для некоторых из них, используемых наиболее часто, предназначены кнои- 
ки инструментальной панели. 

Чтобы открыть новый файл в текстовом редакторе Visual LISP, выбери- 
те пункт New File (Новый файл) из падающего меню File (Файл). На əx- 
ране появится развернутое окно текстового редактора (рис. 2.6). 

Чтобы ввести текст, наберите его в активном окне текстового редактора. 
Для начала новой строки нажмите клавишу Ещег. Текстовый редактор не 
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Рис. 2.6. Развернутое окно текстового редактора 


переносит набранный текст на новую строку до тех пор, пока не будет на- 
xaTa клавиша Enter. 

Чтобы выровнять текстовую строку, введите пробелы или нажмите кла- 
вишу Tab. В последнем случае используйте Code Formatter (Кодовый 
форматер) Visual LISP чтобы автоматически выровнять выражения 
в программе. 

Нажатие комбинации клавиш Shift+Enter очищает конечный пробел 
и символы табуляции, вставляет новую строку и отступы, использующие 
предыдущий непустой отступ строки. 

Нажатие комбинации клавиш Ctrl+Enter очищает конечный пробел 
и символы табуляции, вставляет символ NewLINE и выполняет «интел- 
лектуальный» отступ. 

Чтобы вставить новый текст в уже существующий, щелкните мышкой 
в месте вставки и начните вводить текст. Место вставки можно указать 
также клавишами курсора. 

Если вы хотите отменить только что введенный текст или последние из- 
менения, выберите пункт Undo (Отменить) из падающего меню Edit (Ре- 
дактирование) или щелкните мышкой по кнопке Undo. Команда Undo 
отменяет только последнее изменение. 

Можно отменить также действие Undo. Для этого сразу после нажатия 
кнопки Undo (Отменить) выберите пункт Redo (Восстановить) из падаю- 
щего меню Edit или щелкните мышкой по кнопке Redo. 

Чтобы сохранить изменения в файле до следующего сеанса работы 
с Visual LISP, выберите пункт Save As (Сохранить как) из падающего 
меню File (Файл) главного меню Visual LISP или щелкните мышкой по 
кнопке Save File (Сохранить файл) и определите путь, а также имя файла. 
Если вы попытаетесь выйти из Visual LISP до сохранения файла, Visual 


LISP спросит, сохранить ли изменения. 
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Visual LISP поддерживает автоматическое создание резервных копий 
файлов, загруженных текстовым редактором. Фактически создание резерв- 
ных копий происходит, когда вы сохраняете файл впервые. Файл с резерв- 
ной копией имеет то же имя, что и исходный, за исключением расширения, 
которое включает символ подчеркивания _ и первые два символа первона- 
чального расширения. Например, для исходного файла PRIVET.LSP имя 
файла с резервной копией выглядит следующим образом: РЕТУЕТ. LS. 

Для того чтобы файлы с резервными копиями создавались автоматичес- 
ки, необходимо выбрать пункт General Options (Общие параметры) из 
всплывающего меню пункта Environment Options (Параметры среды) na- 
дающего меню Tools (Инструменты). Режим автоматического создания pe- 
зервной копии будет включен, если выбрать Backup the file edited оп first 
save (Резервная копия файла, впервые отредактированная, сохраняется). 
Данный режим используется по умолчанию. 

Чтобы открыть существующий файл, выберите пункт Open File... (От- 
крыть файл) из падающего меню File (Файл) главного меню Visual LISP 
или щелкните по кнопке Open File (Открыть файл). На экране появится 
стандартное диалоговое окно Open file to edit/view (Открыть файл для pe- 
дактирования/просмотра). Visual LISP открывает новое окно текстового 
редактора для файла, который вы выбираете. Открыть можно любое ко- 
личество файлов, но работать можно только с одним — активным. Актив- 
ное окно находится поверх остальных окон, и заголовок его отличается от 
них по цвету. Каждый файл Visual LISP помещает в свое отдельное окно 
текстового редактора. Имя выбранного файла находится в поле заголовка 
окна текстового редактора. 

Если при выходе из Visual LISP файлы остаются открытыми, то они 
сохраняются до следующего сеанса работы в Visual LISP. Когда вы в сле- 
дующий раз начинаете работу в Visual LISP, он автоматически открывает 
эти файлы. 

По мере ввода программы в окне текстового редактора Visual LISP 
определяет, чем является введенное слово: встроенной функцией Auto- 
LISP, числом, строковой константой или другим элементом языка, KOTO- 
рый он распознает. Каждому виду элемента присваивается собственный 
цвет, что помогает обнаружить отсутствующие кавычки или имя функ- 
ции с орфографической ошибкой. Заданная по умолчанию схема цветов 
такова: | 


Элементы языка AutoLISP Цвет 
Встроенные функции Голубой 
Строки Сиреневый 


Целые числа Зеленый 
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Цвет морской волны 
Сиреневый на сером фоне 


Вещественные числа 
Комментарии 
Круглые скобки Красный 
Переменные пользователя Черный 


Если функция неизвестна Visual LISP, она не будет идентифицирована 
и кодирована цветом. 

Редактор Visual LISP обеспечивает кодирование цветом файлов LISP, 
а также DCL, SQL, С. 

Visual LISP использует расширение имени файла, чтобы определить тип 
файла, и выбирает соответствующий цвет. Цвет, связанный с типом фай- 
ла, можно изменять. Для этого необходимо выбрать пункт Syntax 
Coloring... (Синтаксис установки цвета) из всплывающего меню пункта 
Window Attributes (Параметры окна) из падающего меню Tools (Инстру- 
менты) главного меню Visual LISP 

Если вы выделяете имя функции в окне текстового редактора и нажи- 
маете кнопку Help (Помощь) — кнопку со знаком вопроса на инструмен- 
тальной панели Tools (Инструменты), появляется справка для данной 
функции Visual LISP 

Наиболее важные функции, необходимые при работе в окне текстового 
редактора, сосредоточены в контекстном меню. Для быстрого вызова кон- 
текстного меню шелкните правой кнопкой мышки в любом месте окна тек- 
стового редактора или нажмите комбинацию клавиш Shift+F10 (рис. 2.7). 

В зависимости от позиции курсора, а также оттого, имеется ли выделен- 
ный текст в окне текстового редактора, некоторые 


пункты могут быть неактивными (невысвеченными) ` Cut 

или даже отсутствовать. | Copy 
Большинство пунктов контекстного меню окна | Easte 

текстового редактора аналогичны пунктам кон- Finan 


текстного меню окна консоли (см. рис. 2.3), поэтому Go to Last Edited 


перечислим только новые из HHX: д 
5 Toggle Breakpoint 
Go to Last Edited (Идти к последнему месту pe- а 
дактирования) — переместить курсор в позицию Add Watch 
последней точки редактирования; Аргороз Windows 


Toggle Breakpoint (Установить/удалить точку 
прерывания в позиции курсора) — установить точку 
прерывания в позиции курсора, если ее там не было, 
и удалить ее, если она там была. 

Если курсор стоит в позиции точки прерывания, 
то при вызове контекстного меню правой кнопкой 
мышки в нем вверху появляется новый пункт 


Symbol Service... 


lindo 
“Redo 


Рис. 2.7. Контекстное 
меню окна текстового 


редактора 
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Breakpoint service (Обслуживание точек прерывания). При выборе этого 
пункта контекстного меню окна текстового редактора появляется соответ- 
ствующее диалоговое окно. | 

В редакторе текста Visual LISP термин «слово» означает последователь- 
ность символов, отделяемых одним или большим количеством следующих 
специальных символов: 


Space пробел 


Tab метка табуляции 

одиночная кавычка 

( левая круглая скобка о 
) — правая круглая скобка 


удвоенная кавычка 
; точка с запятой 

\п перейти к новой строке (NewLine) 

[] непечатные символы ASCII (например, \001—\037) 


Допустим, вы забыли правильное написание имени функции. Тексто- 
вый редактор Visual LISP может помочь восстановить слово двумя спосо- 
бами: по первым буквам (символам) слова или по фрагменту слова. Напе- 
чатайте, например, в окне текстового редактора два символа DE и нажмите 
комбинацию клавиш А16+/ (Alt+Slash), чтобы восстановить полное слово 
по частично введенному. Получите имя DEFUN. Visual LISP восстанавлн- 
вает частично введенное слово в соответствии со словом из таблицы иден- 
тификаторов Visual LISP. Чтобы вызвать список полных слов по частично 
введенному, нажмите комбинацию клавиш CtriÌ+Shift+/. 

Таким образом, предоставляется возможность выбора щелчком мышки 
нужного слова. 

Допустим, вы помните начальный фрагмент имени функции. Нанеча- 
тайте, например, в окне текстового редактора FUN. Щелкните по кнопке 
Apropos (Поиск слова по фрагменту) — кнопке 
с буквой А в скобках. На экране появится окно (1 Apropos 
Apropos (Поиск слова по фрагменту) (рис. 2.8). AQ O 

В поле сообщений в нижней части окна име- | 
ется надпись 2 symbols starting with "fun" (най- 
дены 2 имени, начинающиеся с “fun"). 

Чтобы выбрать имя из окна, необходимо сде- 
лать следующее: 

° выбрать из списка имя; 
° щелкнуть правой кнопкой мьншки для вы- Puc. 28. Окно поиска списка 
вода контекстного меню (рис. 2.9); слов по фрагменту Apropos 
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° выбрать пункт Copy to clipboard (Копировать бору dipboard ~ 


в буфер обмена); L Inspect < 

° щелкнуть в окне редактора в том месте, где необ- f Print 
ходимо вставить имя функции; L Symbol... 

e щелкнуть правой кнопкой мышки для вывода | СоРУ _ 
контекстного меню (см. рис. 2.7), выбрать Paste | Аа to Watch 
(Вставить) или нажать комбинацию клавиш | Help 


Ctrl+V для того, чтобы вставить текст. 
Допустим, вы помните фрагмент имени функции. 
Напечатайте, например, в окне тексто- 
вого редактора DEFUN. Щелкните по 
кнопке Apropos (Поиск слова по ^ 
фрагменту) — кнопка с буквой А MERR 
в скобках, на экране появится диало- 
говое окно Apropos (Поиск слова по 
фрагменту) (рис. 2.10). Г Use WCMATCH 
Диалоговое окно поиска по фраг- м ;Downcase symbols 


менту содержит следующие виды |; 

у одержит следующие вилы Dena 
флажков: | - 

e Match Бу Prefix — соответствовать Filter Flags | Cance! | 


Рис. 29. Контекстное 
меню окна Аргоро$ 


I -Match Бу Prefix 


префиксу; 

e Use УСМАТСН - использовать 

групповые символы, например, *; 

e Downcase Symbols — соответство- 

вать заданным символам. 

Ниже слева имеются две кнопки: 

e Filter Value (Фильтр данных) — открыть AM- Match ВЕС 

алоговое окно выбора фильтра. В а 

e Filter Flags (Фильтр флажков) — открыть | 

диалоговое окно выбора флажков данных. || C Null value 

e Если щелкнуть по кнопке Filter Value, no- || C. Nonuli value 

явится диалоговое окно выбора фильтра 
типа данных (рис. 2.11). 

Диалоговое окно для выбора фильтра типа дан- | 
ных Filter value type (Фильтр типов данных) ||} Builtin function 
представляет собой перечень типов данных, среди | |C) Exsubr 
которых может производиться поиск. Один из | 
кружочков отмечается точкой. Для установки точ- | JL Cancel | 
ки нужно щелкнуть по кружочку мышкой. В на- - 
шем примере поиск производится без фильтра, т.е. Рис. 2.11. Диалоговое окно для 
ищется полное слово среди всех типов данных. выбора фильтра типа данных 


Рис. 2.10. Диалоговое окно поиска по 
фрагменту Apropos 


Г, Function 


Г. User function 
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Поиск полного слова может производиться среди: 
e АЙ (по filter) — всех типов данных (без фильтра); 
e Null value (Нулевые значения) — нулевых значений символов; 


e Мопи value (Ненулевые значения) — ненулевых значений символов; 


e Function (Функция) — функций (пользовательские, встроенные, ...); 


e User function (Пользовательская функция) — определенных пользова- 


телем функций; 


e Built-in function (Встроенная функция) — 


встроенных функций Visual LISP; 


° Exsubr (Внешняя функция) — внешних функций. 

Если щелкнуть по кнопке Filter Flags, появится | 
дналоговое окно для выбора флажков (рис. 2.12). 

Выбор имен производится в соответствии с уста- | 


новками флажков: 


e Protect Assign — защитить присваивание; 


e Trace — трассировка программы; 
e Debug оп Entry — отладка на входе; 


e Export to ACAD - экспортирование в AutoCAD., Рис. 2.12. Диалоговое окно 


Darte tapetet aaret otet pria 42 24-2 422 42% 20-709 29 24 


O m a аш ве 


l Trace 
l Debug on Entry 
Г Export to ACAD 


Cancel 


Если фильтр флажка включен, рассматриваются 477 выбора флажков 


только наборы символов с выбранными 
флажками. 

После вызова пункта Extra Commands 
(Особые команды) падающего меню Edit 
или нажатия комбинации клавиш CtrÌi+E 
при активном окне текстового редактора 
Visual LISP появится всплывающее меню 
особых команд редактирования (рис. 2.13), 
куда входят следующие команды: 

e Indent Block (Сделать отступ для вы- 
деленного блока) — сделать отступ 
для каждой строки выделенного бло- 
ка и добавить табуляцию к началу 
каждой строки; 

e Unindent Block (Отменить отступ 
для выделенного блока) — отменить 
отступ для каждой строки выделенно- 
го блока текста и удалить табуляцию; 

e Prefix With (Добавить в начале) — ao- 
бавить текст, введенный в строке под- 
сказки, в начало текущей строки или 
к каждой строке выделенного блока; 


_ Indent Block Tab , 
Unindent Block Shift-Tab 
Indent to Curent Level Ctri-Alt-Tab 
Prefix With... 
Append With... 


kal Comment Block 
Uncomment Block 
Save Block As... 


Upcase Ctri-Shift-U 
Downcase Ctrl-U 
Capitalize 


Insert Date 
Insert Lime 
Format Date/Time... 


Sort Block 


InsertFile... 


_ Delete to EOL 
t- Delete Blanks _ 


Рис. 2.13. Меню особых команд 
редактирования 
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e Append With... (Присоединить в конце) — присоединить текст, вве- 
денный в строке подсказки, в конце текущей строки или в конце каж- 
дой строки выделенного блока; 

e Comment Block (Закомментировать выделенный блок) — преобразо- 
вать выделенный текст в комментарий; 

e Uncomment Block (Разкомментировать выделенный блок) — преобра- 
зовать выделенные комментарии в текст программы; - 

e Save Block As... (Сохранить выделенный блок как файл) — сохранить 
выделенный блок текста как файл; 

e Upcase (Конвертировать в прописные) — преобразовать выделенный 
текст в прописные буквы; 

e Downcase (Конвертировать в строчные) — преобразовать выделенный 
текст в строчные буквы; 

e Capitalize (Представить слово с прописной буквы) — печатать пропис- 
ными буквами первый символ каждого слова в выделенном тексте; 

° Insert Date (Вставить дату) — вставить текущую дату (по умолчанию 
формат mm/dd/yy); 

e Insert Time (Вставить время) — вставить текущее время (по умолча- 
нию формат hh:mm:ss); 

e Format Date/Time (Отформатировать дату/время) — изменить op- 
мат даты и времени; 

e Sort Block (Отсортировать строки блока) — отсортировать строки в 
алфавитном порядке в выделенном блоке; 

e Insert File (Вставить файл) - вставить текстовый файл в текущее окно 
редактора в позицию курсора; 

e Delete to EOL (Удалить все от курсора до конца строки) — стереть все 
от позиции курсора до конца текущей линии; 

e Delete Blanks (Удалить пробелы) — удалить все пробелы от позиции 
курсора до первого символа в строке. 

Кроме клавиш управления курсором, для редактирования текста 

в Visual LISP можно использовать следующие комбинации клавиш: 


Перемещение Клавиши и комбинации клавиш 
На одно слово влево Сы1+<— 

На одно слово вправо Ctrl+— 

К концу строки End 

К началу строки Ноте 

На одно окно вниз Page Down 

На одно окно вверх Page Ор 

К концу документа Ctri+End 


К началу документа Си1+Ноте 
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К открывающей круглой скобке влево Ctrl+[ 
К закрывающей круглой скобке вправо Ctrl+] 


Удалять слова, строки или абзацы можно, используя комбинации клавиш: 
Операции удаления Комбинации клавиш 


Стирает слово слева от курсора Ctrl+BackSpace 

Стирает слово справа от курсора Shift+BackSpace 

Удаляет строку Ctrl+Y 
Использовать режим вставки можно путем нажатия клавиши Ins. В режи- 
ме вставки каждый напечатанный символ заменяет текущий. о 


& 


К другим методам выделения текста относятся следующие: 


Операции выделения 


Расширение/сужение выделения: 


Комбинации клавиш 


до следующей строки Shift+4ļ 

до предыдущей строки Shift+Î 

на одно окно вниз Shift+Page Down 
на одно окно вверх Shift+Page Ор 
до следующего слова Сы1+$+- 

до предыдущего слова Ctrl+Shift+— 


Расширение выделения до: 

конца строки Shift+End 

начала строки Shift+Home 

соответствующей круглой скобки слева Ctri+Shift+[ 

соответствующей круглой скобки справа Ctri+Shift+] 

Перемещение курсора к другому концу 

выделения фрагмента ` Alt+Enter 
Кроме стандартных средств редактирования Cut (Вырезать), Copy (Ско- 
пировать) и Paste (Вставить), редактор Visual LISP располагает средства- 
ми перемещения текста внутри окна редактирования. Чтобы воспользо- 
ваться этими средствами, необходимо: 

° подсветить (выделить) текст, который надо переместить; 

° щелкнуть мышкой в любом месте внутри текста и, удерживая клави- 

шу, переместить мышку, а с ней и текст в нужное место; 

° отпустить клавишу мышки. 

Для копирования текста необходимо перетащить его с помощью мышки 
при нажатой клавише Ctrl. 

Выбранный текст можно скопировать в новый файл. Для этого необхо- 
димо нажать комбинацию клавиш СЫ1+Е, выбрать пункт Save Block As... 
(Сохранить выделенный блок как). На экране появится диалоговое окно 
сохранения файла. 


l 
li 
d 
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Visual LISP использует буфер обмена Windows для операций вырезания 
Cut (Вырезать) и копирования Copy (Копировать). Поэтому текст можно 
обменивать с любыми другими приложениями Windows, которые поддер- 
живают эти функции. Кроме того, у пользователя есть возможность копи- 
ровать и вставлять текст между окнами текстового редактора и окном кон- 
соли Visual LISP 

Структурную запись программы лучше всего проводить с помощью 
форматера Visual LISP 

Чтобы выровнять выбранные строки программы, нажмите клавишу Tab 
или комбинацию клавиш СЫ1+Е, выберите размер отступа. Visual LISP 
вставляет символ табуляции в начале каждой строки, которую вы выбрали. 

Величиной отступа символа табуляции можно управлять, если выбрать 
пункт Configure Current (Текущая конфигурация) всплывающего меню 
Window Attributes (Параметры окна) падающего меню Tools (Инструмен- 
ты) и в появившемся диалоговом окне Window attributes (Параметры 
окна) (рис. 2.14.) установить значение Tab Width (Ширина отступа). 

Редактор текста Visual LISP обеспечивает эффективный поиск элемен- 
та текста. Для того чтобы начать поиск, выберите пункт Ета (Найти) из 
падающего меню Search (Поиск) или щелкните по кнопке Find — кнопке 
с изображением бинокля, либо нажмите комбинацию клавиш Ctrl+F. На 
экране появится диалоговое окно Find (Найти) (рис. 2.15). 

В текстовом поле Find What: (Найти что) наберите с клавиатуры стро- 
ку символов, которую предстоит найти. 


C Window attributes 
Text colors —- 

= Windowtet Coloredtet Window text 
200 E E ММ | 
E = в 
IL ТгапвраетЕ@ ~ [WINDOW-TEXT Е -| 


R Transparent ВС \ т "A ‘Lexical Colors 


T теми 


ет ок | 
L fio {LeftMargin a T A Cancel 2 |: 


Рис. 2.14. Диологовое окно параметров окна 
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г Direction 


Search — = Cancel 


p% 


P 


@ Down C Up aeai 
j Help _ | 
Г Match whole Word only 


l Match Case 


[l Mark instances ` 


С Cürentselection. ; 
© Current fiie | 
G Find in project 

C Find in files 


+ò 


Рис. 2.15. Диалоговое окно поиска 


Можно предварительно в окне текстового редактора Visual LISP выде- 
лить фрагмент текста, который предстоит найти, и после этого начать по- 
нск. Тогда в диалоговом окне поиска Find (Найти) выделенный текст бу- 
дет помещен в поле Find What: (Найти что) автоматически. 

Для ограничения области поиска используется переключатель Search 
(Поиск). Он предоставляет несколько вариантов поиска, из которых MOX- 
но выбрать только один: 

e Current selection (Текущий выбор) — Visual LISP обеспечивает поиск 
только в выделенном тексте, который находится в окне текстового ре- 
дактора; 

e Current file (Текущий файл) — обеспечивает поиск только в текущем 
файле; 


° Find in project (Найти в проекте) — Visual LISP запрашивает имя npo- 


екта, чтобы осуществлять поиск во всех его файлах. Результаты поис- 
ка отображаются в новом окне; 

° Find in files (Найти в файлах) — Visual LISP позволяет определить Ka- 
талог (папку) Window для поиска текста. Если задать поиск во всех 
подкаталогах указанного каталога, то Visual LISP просмотрит все фай- 
лы и представит результаты поиска. 

Для ограничения направления поиска используется переключатель 
Direction (Направление). Он предоставляет два варианта поиска, из KOTO- 
рых можно выбрать только один: 

e Down — от позиции курсора вниз к концу файла; 

e Up — от позиции курсора вверх к началу файла. 

Параметры поиска могут быть заданы с помощью следующих флажков: 

e Match whole Word only (Соответствовать только целому слову). Если 
флажок включен, Visual LISP обеспечивает поиск только слов, HANH- 
санных полностью. Когда, например, осуществляется поиск слова 
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“ENT”, то найденное в тексте слово "Enter" Visual LISP не рассматри- 
вает как результат поиска. Однако, если флажок Match whole Word 
only не включен, Visual LISP считает, что ENT является частью слова 
"Enter", и рассматривает Enter в качестве результата поиска; 

e Match Case ( Соответствовать регистру). Visual LISP обеспечивает no- 
иск текста, полностью совпадающего C заданным. Если, например, осу- 
ществляется поиск слова “ENT” и флажок Match Case включен, то сло- 
во “ent” не рассматривается в качестве результата поиска. Когда флажок 
не включен, то результатом поиска может быть также слово "ent"; 

e Mark instances (Метить образцы). Закладка, установленная в тексте, 
будет добавлена к Mark Ring (Кольцо закладок), что позволит быстро 
вернуться к этой закладке в дальнейшем. Для начала поиска щелкни- 
те по кнопке Find (Найти). Чтобы продолжить поиск, используйте 
функциональную клавишу F3. Для прекращения поиска нажмите 
кнопку Cancel (Отменить). 

Visual LISP сохраняет каждую строку поиска, которая введена в тексто- 

вом поле Find What: (Найти что) (рис. 2.16). 

Чтобы повторить поиск строки, введенной в поле 
Find What ранее, достаточно выбрать необходимую 
строку в раскрывающемся списке Find What. Для это- 
го щелкните по стрелке, подсветите нужную строку 
и ‘нажмите кнопку Find (Найти). 

Падающее меню Search (Поиск) содержит пункт Рис. 2.16. 
Replace (Заменить), который позволяет заменить  РАаскрывающийся 
текст поиска на определенную вами текстовую строку  “"ИСОК Строк поиска 
(рис. 2.17). l 

Диалоговое окно поиска и замены Find очень похоже на диалоговое 
окно поиска (см. рис. 2.15). Отличие между ними состоит в том, что окно 
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Рис. 2.17. Диалоговое окно поиска и замены Find > 
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поиска и замены Find содержит дополнительное текстовое поле Replace 
with: (Заменить на). В этом поле вводится текст, на который Visual LISP 
должен заменить заданный текст. Для выполнения поиска из диалогового 
окна поиска и замены Еша можно воспользоваться следующими кнопками: 

e Find (Найти) — нахождение следующего местонахождения строки 

поиска: | 

e Replace (Заменить) — замена найденного текста на строку замены; 

e Replace АП (Заменить все) — замена всех найденных строк поиска на 

строку замены; | 

e Cancel (Отменить) — отмена замены. Если какую-либо из найденных 

строк поиска вы не хотите заменять, щелкните по кнопке Find (Най- 
ти), чтобы продолжить поиск следующего местонахождения текста, 
или Cancel (Отменить), чтобы закончить поиск. 

Visual LISP имеет специальное средство для пошагового перемещения 
по тексту — набор закладок (Bookmarks). Это средство (до 32 закладок 
в каждом окне) помогает быстро перемещаться по тексту в редакторе, кон- 
соли и других текстовых окнах. Каждое окно поддерживает свой собствен- 
ный набор закладок, а инструментальные средства передвижения по за- 
кладкам допускают переход к закладке внутри каждого окна независимо 
от других окон. Набор закладок внутри окна известен как кольцо (RING) 
закладок. Можно шагать по кольцу (набору) закладок вперед или назад 
и в конечном счете вернуться к начальной закладке. 

Всякий раз при переходе от закладки к закладке Visual LISP временно 
удаляет закладку, к которой производится переход, и помещает в начало 
строки курсор. Чтобы установить/удалить закладку, переместите курсор 
в строку установки/удаления закладки. Щелкните по кнопке Toggle 
bookmark (Установить/удалить закладку) — кнопке с синим флагом на 
инструментальной панели Search (Поиск) или нажмите комбинацию 
клавиш АЁ+. (точка). 

Если использовать пункт Find (Найти) для поиска текста, закладки MO- 
гут быть выставлены автоматически. 

Когда текущее окно содержит закладки, вы можете: 

переместить курсор в строку, содержащую предыдущую закладку 

в кольце. Для этого необходимо выбрать пункт Previous Bookmarks 
(Предыдущие закладки) из всплывающего меню Bookmarks (Заклад- 
ки) падающего меню Search (Поиск) или нажать кнопку Previous 
Bookmarks (Предыдущие закладки) на инструментальной панели. 
Можно также нажать комбинацию клавиш СЫ+, (запятая); 
переместить курсор в строку, содержащую следующую закладку 
в кольце. Для этого выберите пункт Next Bookmarks (Следующие 
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закладки) из всплывающего меню Bookmarks (Закладки) падающего 
меню Search (Поиск) или нажмите кнопку Next Bookmarks (Следую- 
щие закладки) на инструментальной панели. Можно также нажать 
комбинацию клавиш Ctri+. (точка). 

Можно выбирать текст и между двумя закладками: 

° чтобы выбрать текст между текущим расположением закладки и пре- 
дыдущим, необходимо нажать комбинацию клавиш CtrÌ+Shift+, (за- 
пятая); 

° текст между текущим расположением закладки и следующим можно 
выбрать, если нажать комбинацию клавиш Ctrl+Shift+. (точка). 

Для удаления одиночной закладки переместите курсор в строку, в кото- 
рой расположена закладка. Щелкните по кнопке Toggle Bookmark (Уста- 
новить/удалить закладку) на инструментальной панели Search (Поиск) 
или нажмите комбинацию клавиш А[+. (точка). Пункт Toggle Bookmark 
работает как переключатель «вкл/выкл». Если вы выбираете пункт, когда 
закладка установлена, Toggle Bookmark выключает ее. Воспользуйтесь 
этой командой, когда нет закладок, и Toggle Bookmark (Установить/уда- 
лить закладку) вставит закладку. 

Для удаления всех закладок в вашей программе нажмите на инструмен- 
тальной панели кнопку Clear АЙ Bookmark (Очистить все закладки) или 
выберите пункт Clear All (Очистить все) из всплывающего меню 
Bookmarks (Закладки) падающего меню Search (Поиск). 

Visual LISP имеет специальное средство для структурирования (форма- 
тирования) программ — форматер. Форматер Visual LISP преобразует Bhl- 
ражения AutoLISP в красивый удобочитаемый вид. 

Для форматирования всего текста в активном окне редактора выберите 
пункт Format AutoLISP in Editor (Отформатировать программу в актив- 
ном окне редактора) падающего меню Tools (Инструменты) главного 
меню Visual LISP или щелкните по кнопке Format Edit Window (Отфор- 
матировать программу в активном окне редактора) на инструментальной 
панели Tools (Инструменты). 

Hia форматирования части программы выделите фрагмент программы 
и выберите пункт Format AutoLISP падающего меню Tools (Инструмен- 
ты) или щелкните по кнопке Format Selection (Форматирование выделен- 
ного фрагмента) инструментальной панели Tools (Инструменты). Если 
выделенный фрагмент выражений AutoLISP имеет ошибки, форматер вы- 


даст сообщение об ошибке. 
Допустим, вы ввели в окне текстового редактора выражение AutoLISP. 


(SETQ А 10 B 20 C 40 
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Но B этом выражении вы случайно забыли поставить закрывающую круг- 
лую скобку. Затем вы выделили это выражение и запустили процедуру фор- 
матирования, щелкнув по кнопке Format Selection (Форматирование вы- 
деленного фрагмента). Появится окно с сообщением и вопросом (рис. 2.18). 


Question 


Рис. 2.18. Сообщение формотера 


Допустим, в ответ на сообщение и вопрос Unbalanced opening bracket 
found. Add closing brackets? (Обнаружена несбалансированная открыва- 
ющая круглая скобка. Добавить закрывающую круглую скобку?) вы щелк- 
нули по кнопке Yes (Да), появится окно с таким подтверждением: 

1 closing brackets were added while formatting (1 закрывающая круглая 
скобка была добавлена в процессе форматирования). 

Следует щелкнуть по кнопке ОК. Появится результат форматнрования 
введенного и выделенного выражения: 


(SETQ A10 
B 20 
C 40) 


Если хотите установить круглые скобки самостоятельно, нажмите кноп- 
ку № (Нет). 

Форматер Visual LISP позволяет задать вид форматирования. Для это- 
го необходимо вызвать пункт AutoLISP Format Options... (Параметры 
форматирования программ AutoLISP) из всплывающего меню, а затем 
пункт Environment Options... (Параметры среды) из падающего меню 
Tools (Инструменты). На экране появится диалоговое окно AutoLISP 
Format options (Параметры форматирования AutoLISP) (рис. 2.19). 

Существуют два основных стиля форматирования программ: 

° однострочный; 

e многострочный — широкий, узкий или в столбец. 

В соответствии с однострочным стилем все элементы программы разме- 
щаются в одной строке и разделяются одиночным пробелом. 

Согласно многострочному широкому стилю первый элемент размеща- 
ется в той же строке, что и имя функции, а остальные элементы выравни- 
ваются в столбце под первым элементом. 


ФС, 
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\ $ AutoLISP Format options | 
 Раниехталоа [22 Maximum length for plane expression [60 
Малом зу indentation Е V Preserve existing line breaks ` et 

| | Го Split comments 

Setting Case for symbols 


Protected — 
< None 
С домтсазе 
С УРСАЗЕ 


`Мазтит wide-styie саг length 


_ эпае-зеписоюп comment indentation [10 | 


= Поэта paren $Ма UnProtected 


{< None 


<> Close atthe same line 


C downcase 
C УРСАЗЕ 


C Ciose atthe new line with inner ingentaton 


| - . : N 
i C Close atthe new line with outer indentation 


Smm 


М Insettebs 
Г Save formatting options in source file 


Г inserntormm-closing comment 


Formm-closing comment prefix fend of 


Base optons... | | P OK | 
Revertto Defauk | Cancel | 


= Á 


г Longlist format style 


| С Single-column formatting 


| C 2-column formatting 


< Multi-column formatting; 


C Fil-o-margin formatting 


a ~ - - — 
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Рис. 2.19. Диологовое окно выбора стиля форматирования 


Многострочный узкий стиль предполагает размещение первого элемен- 
та в следующей строке после имени функции и выравнивание остальных 
элементов в столбце под первым элементом. Смещение позиции первого 
элемента относительно исходной позиции выражения управляется с помо- 
шью параметра Narrow style indentation (Суженный стиль выравнивания). 

Многострочный стиль в столбец — это стиль, в котором все элементы 
размещены в столбец. 

В дополнение к основным стилям форматирования можно устанавли- 
вать и другие параметры форматирования. Рассмотрим различные режи- 
мы управления позицией расположения круглой заключительной скобки 
для многострочных стилей форматирования, из которых может быть вы- 
бран только один: 

e Close at the same line (Закрыть на той же самой строке) — закрытие 

круглой скобкой на последней строке каждого выражения; 

e Close at Фе new line with inner indentation (Закрыть в новой строке 

с внутренним выравниванием) — закрытие круглой скобки па следую- 
щей строке после последней строки каждого выражения с внутренним 
выравниванием; 

e Close at the new line with kenir indentation (Закрыть в новой строке 

с внешним отступом) — закрытие круглой скобки на следующей (после 


“o 
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последней строки каждого выражения) строке с внешним выравнива- 
нием. | | 

Текстовое поле Form-closing comment prefix (Завершающая форма KOM- 
ментария). позволяет добавить комментарий после выражения и исполь- 
зуется только с последними двумя режимами. Formatter вставляет KOM- 
ментарий вида: 

‚ _ ЕМО OF <имя функции> 

Включенный флажок Preserve existing line breaks (Сохранить суще- 
ствующие разрывы строк) позволяет сохранить разрыв строк. 

Флажок Split comments (Разбить комментарии) позволяет разбить 
длинный комментарий, который выходит за пределы правого поля. 

Форматер Visual LISP распознает пять видов комментариев и позицио- 
нирует их следующим образом: 

Я Встроенный комментарий |; — включается в любое место програм- 
мы, задается внутри символов; |... |; 

; Комментарий после точки с запятой — вставляется в конец текущей 
строки; | 

; Комментарий в текущем ряду — пишется, начиная с новой строки 
с текущей позиции предыдущего выражения, строки выравниваются по 
последней строке программы. 
;;; Заголовок или комментарий без отстиупа. 
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; _ Функционально заключительный комментарий — комментарий 
в конце последнего выраження. 
Рассмотрим различные виды комментариев на следующем примере. 


Исходный текст: 


(DEFUN LIST123 (X) 
; | встроенный комментарий |; 
(LIST 1 2 3} ; комментарий после точки с запятой 
;; комментарий в текущем ряду 
;;; заголовок или комментарий без отступа 
) ; _ функционально заключительный комментарий 
Отформатированный текст: 
{ DEFUN 1.157123 (Х);| встроенный комментарий |; 
(LIST 1 2 3) ; комментарий после точки с запятой 
;; комментарий в текущем ряду 
;;; заголовок или комментарий с позиции начального выражения 
EA функционально заключительный комментарий 


Чтобы сохранить установки параметров форматтера Visual LISP выбе- 
рите пункт Save Settings (Сохранить установки) из падающего меню Tools 
(Инструменты) интегрированной среды Visual LISP. Текущие установки 
можно сохранить также в активном текстовом окне редактора Visual LISP 
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Выберите пункт Environment options (Параметры среды) падающего меню 
Tools (Инструменты), а затем пункт AutoLISP Format options (Парамет- 
ры форматирования AutoLISP) из всплывающего меню. ‘ 

Размер окна и табуляция соответствуют установкам Windows. Установ- 
ки можно изменить, если выбрать пункт Window Attributes (Атрибуты 
окна) падающего меню Tools, а затем пункт Configure Current (Текущая 
конфигурация) всплывающего меню. Форматер доступен только из окна 
редактора Visual LISP 

Одним из основных преимуществ Visual LISP является наличие различ- 
ных средств отладки. Данные средства позволяют следить за тем, что про- 
исходит во время выполнения программы. При этом можно выбрать лю- 
бой ее фрагмент. Не менее важно и то, что Visual LISP обеспечивает ряд 
возможностей для обнаружения ошибок прежде, чем программа начнет 
ВЫПОЛНЯТЬСЯ. 

По сравнению с другими языками программирования AutoLISP исполь- 
зует круглые скобки наиболее часто. Как уже отмечалось, одна из самых 
распространенных синтаксических ошибок в AutoLISP — несоответствие 
количества открытых круглых скобок количеству закрытых. Visual LISP 
располагает рядом инструментальных средств, необходимых для обнару- 
жения несоответствия между круглыми скобками. 

Форматер Visual LISP осуществляет поиск незакрытых скобок во вре- 
мя форматирования программы. Он может добавить круглые скобки там, 
где считает нужным, как правило, в конце программы. 

Чтобы определить, правильно ли установлены круглые скобки, необхо- 
димо проверить структуру вашей программы. Для поиска парных круглых 
скобок можно использовать один из пунктов всплывающего меню пункта 
Parentheses Matching (Соответствие круглых скобок) падающего меню 
Edit (Редактирование): 

e Match Forward (СИ1+]) (Переместить курсор в конец выражения) — 
перемещает курсор в позицию за соответствующей закрывающей 
круглой скобкой, которая соответствует открывающей круглой скоб- 
ке. Если близлежащего соответствия нет, курсор перемещается на 
один шаг вверх в иерархии вложения функций. 

e Match Backward (Ctri+[) (Переместить курсор в начало выраже- 
ния) — перемещает курсор в позицию соответствующей открывающей 
круглой скобки. Если такой нет, курсор перемещается на один шаг 
вверх в иерархии вложения функций. 

e Select Forward (Ctrl+Shift+]) (Переместить курсор в конец выраже- 
ния и выделить его) — перемещает курсор так же, как и команда Match 
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Forward, а кроме того, выделяет весь текст между начальной и конеч- 
НОЙ ПОЗИЦИЯМИ. 

e Select Backward (Ctrl+Shift+[) (Переместить курсор в начало выра- 
жения и выделить его) — перемещает курсор так же, как и команда 
_ Match Backward, и, кроме того, выделяет весь текст между начальной 
и конечной позициями. 

Если выбрать пункт Check text in Editor pa epi синтаксис текста) 
падающего меню Tools (Инструменты) главного меню Visual LISP, можно 
провести дополнительную проверку синтаксиса программы. 

Для проверки синтаксиса фрагмента программы используйте пункт 
Check Selection (Проверка синтаксиса выделенного текста) из падающе- 
го меню Tools. 

Чтобы выполнить программу из окна текстового редактора, выберите 
пункт Load text in editor (Загрузить текст из редактора) падающего меню 
Tools главного меню Visual LISP или нажмите кнопку Load active edit 
window (Загрузить текст из активного окна редактора) на инструменталь- 
ной панели Tools. На экране появится сообщение о загрузке программы на 
КОНСОЛЬ. 

Чтобы выполнить программу, введите имя функции в круглых скобках. 
Например: 

_1$ (PRIVET) 

Вы можете выполнить только часть программы. Для этого необходимо 
выделить нужную часть программы, выбрать пункт Load Selection (За- 
грузить выделенный текст) падающего меню Tools (Инструменты). 

Рассмотрим процесс загрузки файлов с расширением LSP в системе 
AutoCAD. Создайте файл, например, PRIVETW.LSP и наберите в нем сле- 
дующую программу: 

(DEFUN PRIVET (IMY) 
(COMMAND 
"STYLE" "" "TIMES NEW ROMAN CYR" "60" "1" пт tr вн п, 
"TEXT "20;1500" "0" {5ТВСАТ "ДОРОГОЙ “ DMY" 1141) 
"ТЕХТ" "3,100" "17" " АВТОР ВАС ПРИВЕТСТВУЕТ " 
"ТЕХТ" "250,50" "0" " УСПЕХА ВАМ 1!!!" 
"ZOOM" "А") ; Текст приветствия будет размещен во весь экран 

(РАТУЕТ "Пользователь" } | 

Командная строка AutoCAD для загрузки файла будет выглядеть сле- 
дующим образом: 


COMMAND: (LOAD "С: \РЕТУЕТИ" ) 


Aer 
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Загрузить AutoLISP, ADS. и ARX Файлы x| 


’Файпы для Считывания 
O Program РИе\АмоСАО АТ-АМАЗРАЛае [5 р 
Файл... | 
Удалить | 


С\Чашойзр\Напагм [р 
М Сохранить список 


_С\амовзр\КиКа1 м |5р 
OWautolisp\Mnkvw.lsp 
tOautolisp\Fosliw.lsp 
CyHautolispiSetdforw.lsp 
CyWautolsp\Setorlw.lsp 
| С\Яамовзр\А$те!а1 м |5р 
САащой$р\А не! ам |5р 
САащайзр\АУ ап. |5 р 


Загрузить | 


Рис. 2.20. Диалоговое окно загрузки файлов 


Выход | Помощь | 


Ждите ответ на экране монитора. Успеха Вам!!! 

Файл PRIVETW.LSP можно ввести также, если использовать диалого- 
вое окно Загрузить AutoLISP, ADS, и ARX Файлы (Load AutoLISP, ADS, 
and ARX Files) (рис. 2.20). Для этого выберите пункт Load Application... 
(Загрузить приложение) в падающем меню Tools (Инструменты). 


Выберите файл AutoLISP., ADS. or ARX ki E4 


Палка: |= ЗЕ @ 


Windows 


Tet Winzip privetwl 

Г] Чейргос Ox] 
y1 C] Zel_pb96 | 
vb (I Zelengrd | 
vautolisp (ЗанжЕЛЛА 
УУБа$ A} MOn документы 
Wing8 kA 111 

Тип файлов: {Lisp (lep) | x Отмена | 


| Найти Найти срайл..| 


Рис. 2.21. Окно выбора файлов 


Программирование на AutoLlSP в среде Visual LISP 107 


В открывшемся диалоговом окне включите флажок Сохранить список 
(Save LIST). В следующий раз при выборе команды Load Application... 
(Загрузить приложение) падающего меню Tools имя файла будет внесено 
в диалоговое окно загрузки файлов автоматически. 

Далее в этом диалоговом окне щелкните мышкой по кнопке Файл... 
(Е|е...), появится окно выбора файлов Выберите файл AutoLISP, ADS 
или ARX (Select AutoLISP, ADS, ог ARX File), показанное на рис. 2.21. 

Щелкните мышкой по кнопке Переход на один уровень вверх (кнопка 
со стрелкой вверх), чтобы перейти на диск С:. Найдите файл Privetw 
и дважды щелкните по нему мышкой, появятся каталоги (папки) и файлы 
на диске С:. | 

После этого на экране вновь появится диалоговое окно загрузки фай- 
лов Загрузить AutoLISP, ADS, и ARX файлы (Load AutoLISP, ADS, and 
ARX Files), однако в нем уже будет файл PRIVETW. 

Щелкните по кнопке Load (Загрузить), появится окно AutoCAD с прн- 
ветствием (рис. 2.21). 
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Рис. 2.22. Графическое окно системы AutoCAD 
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Со временем пользователь, как правило, нарабатывает много программ 
на языке AutoLISP. Чтобы в них ориентироваться, необходимо давать фай- 
лу такое оригинальное имя, которое соответствует содержанию програм- 
мы. Например, имя MNKV.LSP можно дать файлу, в котором разработана 
программа для статистической обработки данных методом наименьших 
квадратов. Как можно заметить, в имени программы используются началь- 
ные буквы названия метода. Скажем, программа, предназначенная для рас- 
чета сетевого вероятностного графика, может быть названа так: SETV.LSP. 

Однако. например, метод наименьших квадратов может быть предназ- 
начен для определения параметров линейного уравнения регрессии, квад- 
ратического или еще более высоких степеней. Тогда соответствующие на- 
звания файлов могут выглядеть следующим образом: ММКУ _1.Г5Р 
ММКУ 2.Г$Р, ММКУ М.ГЗР. 

Если, допустим, разработана программа для решения дифференциаль- 
ных уравнений методом Рунге-Кутта, то можно ее назвать так: RUNG- 
КОТЕЗР 

Желательно, чтобы число символов в названии файлов не превышало 8. 
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3.1. Параметрическое изображение плана 
объекта 


3.1.1. Постановка задачи 


Требуется разработать алгоритм параметрического изображения плана 
офиса с размещением мебели внутри него и создать соответствующую 
функцию для построения плана офиса с мебелью. Функция параметричес- 
кого изображения плана офиса должна быть представлена в таком виде: 
(CFFIS X Y LDD LD) 
где X, Y — базовая точка для изображения плана; LDD — список данных 
для изображения двери офиса следующего вида: 
' (N D2 HD), в котором N, D2 и НО - номер угла офиса, расстояние от 
угла офиса до двери и ширина двери соответственно; 
LD — список элементов офиса с размерами (мебели) 
((X1 Y1 D1 HI "ima" U1) (X2 Y2 D2 H2 "mma" U2) ...) 
где X1, Y1 — базовые координаты офиса или мебели; D1, Hi — длина 
и ширина офиса или мебели; 
“имя”, U1 — название мебели, угол установки ее. 
На плане должны быть представлены упрощенные изображения мебе- 
ли, ее расположение, название и размеры. 


3.1.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Сделаем набросок возможного плана офиса с мебелью (рис. 3.1). 

Как можно заметить, в эскизе плана офиса преобладают фигуры типа 
прямоугольника. Поэтому вначале рассмотрим процесс создания изобра- 
жения прямоугольника. Прямоугольник заданного размера должен быть 
расположен в заданной точке под заданным углом и содержать поясни- 
тельную надпись. В процессе создания изображения прямоугольника 
предстоит сделать следующее: i | 

e определить точки прямоугольника относительно базовой точки с за- 

данным углом наклона прямоугольника и заданными размерами; 
сформировать изображения прямоугольника по четырем точкам; 

e определить точки начала вывода текстовой информации; 

e сформировать в прямоугольнике текстовую информацию. 

Допустим, имя этой функции будет ВОХ, а ее аргументы: 

X, У — координаты базовой точки прямоугольника; 
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Рис. 3.1. Эскиз плана офиса с мебелью 


D, H - длина и ширина прямоугольника соответственно; 
"имя" — название мебели (для офиса без имени); 
UG - угол наклона плана офиса или мебели в градусах. 


3.1.3. Разработка последовательности действий 
и комплекса функций для параметрического 
изображения плана офиса 


Для определения вершин прямоугольника используем встроенную функ- 
цию AutoLISP (POLAR <Т1> <UR> <К>), которая определяет точку T2 
путем перемещения из точки <Т1> под углом <UR> в радианах на pac- 
стояние <К>. Поскольку углы наклона мебели приводятся в градусах, 
предварительно необходимо перевести их в радианы: 


(SETO UR (* РГ (7 UG 180.07})) 


Для того чтобы ввести текст в прямоугольнике (мебели), необходимо 
определить координаты точек ввода текста и сам текст. При этом текст 
вводится только для изображения мебели, то есть когда, например, индекс 
]>2. Этот фрагмент программы будет выглядеть следующим образом: 


; определение координат точек для ввода текста и сам текст 
(SETO; BTT (POLAR BT AF бл 2 НЮ 

BTX {POLAR BT (+ UR АН 1.70 

H1 (ТТОА.Н) 

D1 (ITOA D) 

TELS 

TTI- (IF(> J12 )FW(STRCAT DIS" ОН 

J (+J 1}) } 


г 
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; ввод текстовой информации в прямоугольник 
(COMAND “TEXT” "C" BTT (/ 05) (+ 90 UG) TXT 
MEX CBTA TTT) 

Для изображения двери офиса необходимо знать координаты вершин 
(углов) плана офиса. Они определяются при первом использовании Ффунк- 
ции (ВОХ...). Остается только их запомнить. Для этого можно использо- 
вать функцию (1Е..) в таком виде: 


(ТЕ (=491) ($5ЕТО ТР BT ; координаты первого угла офиса 
TT2 T1 ; координаты второго угла офиса 
TTIR ; координаты третьего угла офиса 
TES ТЗ] ; координаты четвертого угла офиса 


На основании вышеизложенного приведем функцию создания изобра- 
жения прямоугольника: 


(DEFUN BOX (X Y D H TXT UG) 
; определечие координат вершин BT, T1, T2, ТЗ. 
(SETQ ВТ (LIST-X Y) ; базовая точка офиса (мебели) 
UR (* PI (/ UG 180.0)) ; преобразование градусов в радианы 
T1 (POLAR BT (+ UR (/ PI 2)) H) 
T2 (POLAR T1 UR D) 
T3 (POLAR BT UR D) 


; создание изображения прямоугольника 
(COMAND "LINE" ВТ T1 T2 T3 BT *")] 
; определение координат углов офиса TT1, TT2, TT3, TT4. 


# 


(ТЕ (=J 1) (SETQ TT1 ВТ ; координаты первого угла офиса 
TT2 T1 ; координаты второго угла офиса 
TR TE `; координаты третьего угла офиса 
TPA T3)) ; координаты четвертого угла офиса 


; определение координат точек для ввода текста 
(SETO BTI (POLAR ВТ (+ UR (/ РТ 2.7)) (/H2)) 
BTX (POLAR BT 1950817 PI 3.0) (FHL) 
H1 (ITOA H) 
D1 (ITOA D) 
TTT =" 
ТТТ (ТЕ (>92) (STREAT D "*" HT) 
J (+J 1)) 
; введение текстовой информации в прямоугольник 
(COMMAND "TEXT" "С" BTT (/ D5) (+ 90 UG) TXT 
TEXT" СВ T -A AETI) 


} 
Далее приведем пример списка элементов офиса: 


’((24`24 144 120 "" 0) (28 28-136 112 "" 0) 


a 
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(29 29 24 60 "Стол" 0) (80 29 30 60 "Доска" 0) 

(145 29 18 36 "Шкаф" 0) (56 48 16 24 "Кресло" 0) 

(132 100 12 18 "Стул" 206) (140 56 16 24 "Кресло" 162)) 

Первый элемент списка описывает внешнюю стену офиса, второй — 
внутреннюю стену офиса, последующие элементы — мебель офиса. 

Теперь, используя функцию (BOX X Y D H "имя" U), разработаем 
функцию под названием OFFICE для создания изображения плана офиса 
с мебелью. Отрисовку плана офиса будем проводить в цикле. Введем не- 
сколько параметров для отрисовки двери. М — номер угла офиса, вблизи 
которого расположена дверь. Нумерацию углов начнем с нижнего левого 
угла (номер 1), следовательно левый верхний угол обозначим номером 2 
ит д. 02 — расстояние от угла офиса до двери, НО — ширина двери. Ин- 
формацию о двери офиса будем представлять также в виде списка '(М D2 
НО). Программа создания изображения офиса может выглядеть следую- 
щим образом: 


(DEFUN OFFICE (ХУ LDD LD) ; начало создания функции офис 
(ЗЕТУАВ "СМБЕСНО" 0) ; отключение эха команд 
(ЗЕТУАВ "ВЬТРМОПЕ" 0) ; отключение изображения маркера 
(COMMAND "LIMITS" "0,0" "192,168" "ZOOM" "А") 
(SETQ М (МТН 0 LDD) ; номер угла отсчета двери 
02 (NTH 1 LDD) ; расстояние от двери до угла 
НО (NTH 2 LDD} )} ; ширина двери 
(SETQ J 1} 


; цикл создания изображения плана офиса и мебели B нем 
(FOREACH EL LD 


(SETO X (NTH 0 EL) ; координата по оси x 
У (NTH 1 EL) ; координата по оси y 
О (NTH 2 EL) ; Длина офиса (мебели) 
H (NTH 3 EL) ; ширина офиса (Me6enn) 
TXT (NTH 4 EL) ; название мебели 
U (NTH 5 EL)) ; угол установки мебели, градусы 
(IF (EQ J ТЕТ) 
(IF (EQ J 2) (SETQ НО {- X X1))) .;-толщина стены офиса 
(BOX X Y D H TXT U) ; изображение офиса (Me6enn) 


) 


Далее создадим фрагмент программы для изображения двери офиса. 
Для начала определим координаты расположения точек двери с учетом 
различного местоположения двери и привязкой ее к конкретному углу 
офиса (М). Допустим, дверь расположена в левой стене офиса. Тогда ее 
местоположение можно определить путем перемещения вверх от первого 
угла (левого нижнего под М = 1) на заданное расстояние D2, 


ФС 


-m a a — = 
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; определение координат расположения точек двери 
(COND ((= №1) (SETQ ТВ1 (POLAR TT1 (/ РТ2) D2) 
TR2 (POLAR ТВ1 (/ PI 2) НО) 
ТР1 (POLAR TR1 0 HO) 
TP2 (POLAR TR2 0 HO)}) 
((= N2) (SETQ TR1 (POLAR TT2 0 D2) 
TR2 (POLAR TR1 0 HD) 
TP1 (POLAR TR1 (* (/ 3 2.0) PI) HO) 
TP2 (FOLAR TRS "= (Аз 2.0) PIV H017 
((= N3) (SETQ TR1 (POLAR TT3 (* (/ 3 2.0) РТ) D2) 
TR2 (POLAR TR1 (* (/ 32.0) PI) HD) 
TP1 (POLAR TR1 PI НО) 
TP2 (POLAR TR2 РТ НО) }} 
((= N 4) (SETQ TR1 (POLAR TT4 PI D2) 
TR2 (POLAR TR1 PI HD) 
ТР1 (POLAR TR1 (/ PI 2) HO) 
TP2 (POLAR TR2 (/ PI 2) НО)))) 
(SETQ ТЕЗ (POLAR TP1 (- (/ РТА) (* (/РТ2) (-N1))) HD}}) 
; изображение дзери | 
(COMMAND "BREAK" TR1 TR2 
“BREAK” TP1 TP2 
LINE“ TPI TRA ”*" 


удаление части стены офиса 
удаление части стены офиса 
изображение торца стен офиса 
"LINE" TP2 TR2 ”" изображение торца стен офиса 
“CINE” TELTRI T изображение открытой двери 
"АВС? TR3 "END" TP2 TR2) ; изображение следа двери 


В окончательном виде программа создания параметрического изображе- 
ния плана офиса представлена ниже. 


w a `` 6 `` g ` è 


=o 


3.1.4. Программа (функция) параметрического 
изображения плана офиса 


. kkřžkkkřžžřžřkkkkěžtůkkěžkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkěkkěkkěkkkěkkkkkkkkkkkkkxk 


(OFFICE ХУ LDD LD) - функция параметрического построения 
плана офиса 

Аргументы Функции: 

X,Y - базовая точка для изображения плана (X Y) 

LDD - список элементов для изображения двери офиса - 
' (N D2 HD) 

; N - номер угла офиса 

; 02 - рабстояние от угла офиса до двери 

; HD - ширина двери | 

LD - список элементов офиса с размерами (мебели) 

( (X1 Y1 01 H1 "имя" 01) (X2 Y2 D2 H2 "имя" 02}...) 


t 
c] 
f 
æ 
r 
-+ 
# 
© 
f 
ad 
f 
Га 
f 


v 
f 
s 
d 


e 
i 


s 
f 
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Х1, У1 - базовые координаты офиса или мебели 

D1, H1 - длина и ширина офиса или мебели Т1 

"имя", 01 - название мебели, угол ее. установки 

{BOX X Y DH "имя" 0} - функция изображения мебели (плана) “ 


. X,Y - базовые координаты, D - длина, H - ширина, "имя", 


U - название и угол установки плана офиса или мебели 
Пример: вызова функции (OFFICE ВТ LD) 

(OFFICE 24 24 '((24'24 144 120-"" =") ‚(28 28 136 112 
we в") (29 2924300 ECTO O") 4) 


kkkkkkkkkžřááýákžkěžkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkžkkkkkkókókkkkkkk*kkkxk 


(DEFUN BOX (X Y D H TXT UG) 


) 


‚ определение координат вершин прямоугольника 


(SETQ ВТ (LIST X Y) '; базовая точка офиса (мебели) 
UR (* РТ (/ UG 180.0) } ; греобразование градусов в радлианы 
T1 (POLAR ВТ (+ UR (/ PI 2)) H) 
T2 (POLAR T1 UR 1} 
T3 (POLAR BT UR D) 
) 
; создание изображения прямоугольника 
(COMMAND "LINE" BT T1 T2 T3 ВТ "") 


(IF (= J В) (SETQ TT1 BT ; координаты первого угла офиса 
ТТ Ti ; координаты второго угла офиса 
TTS T2 ; координаты третьего угла офиса 
TT4 ТЗ) ; координаты четвертого угла офиса 


) 
; определение координат точек для ввода текста 
(SETQ BTT (POLAR ВТ (+ UR (/ PI 2.7)}) (/ H 2}) 
BTX (POLAR BT- (HUR (/- BI 3. TII- (C/H L/F} 
H1 (ITOA H) 
01 (ITOA D) 
ppp an 
TTT TE (5 2 WASTRCAT DE 2%" НЕ) 
J (+91) 
) 
; введение текстовой информации в прямоугольник 
(COMMAND "TEXT" "C" BTT (705) (+ 90 UG) TXT 
TEXT" 4G FBTX At ТЕТ} 


(DEFUN OFFICE (X Y LDD LD) | ; создание плана офиса 
(SETVAR "СМОЕСНО" 0) ; отключение эха команд 
(ЗЕТУАВ "ВЫТРМОШОЕ" 0} ‚ ; отключение изображения маркера 
(COMMAND "LIMITS" "0,0" "192,168" "ZOOM" "A") 
(SETQN (NTH 0 LDD) | ; номер угла отсчета двери 


02 (NTH 1 LDD) | ; расстояние от двери до угла 


"т 
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Но (NTH 2 LDD)) 
(SETQ J 1) 


; ширина двери 


; цикл изображения плана офиса и мебели в нем 


(FOREACH EL LD 
(SETO X (NTH О EL) 
Y (NTH 1 EL) 
р МН EL) 
H (NTH 3 EL) 
TXT (NTH 4 EL) 
U (NTH 5 EL}) 
(EQ J 1) (SETQ X1 X)) 
(EQ J 2) (SETQ НО (- X X1))) 
БОХ ХУОН ТХТ U) 


™ % ~% «< > 


‚ координата по оси X 

; координата по оси У 

; длина офиса (мебели) 
; ширина офиса (мебели) 


название мебели 


; угол установки мебели, градусы 


толщина стены офиса 


‚ изображение офиса (мебели) 


; спроеделение координат расположения точек двери 
(COND ((= №1) (SETQ ТВ1 (POLAR TT1 (/ РТ 2) D2) 
ТВ2 (POLAR TR1 (/ PI 2) HD) 
ТР1 (POLAR ТВ1 0 HO) 
TP2 (POLAR TR2 0 НО))} 
((= N2) (SETQ TR1 (POLAR TT2 0 D2) 
TR2 (POLAR TR1 0 HD) 
ТР1 (POLAR TR1 (* (/ 3 2.0) РТ) HO) 
TP2 (POLAR TR2 (* (/ 3 2.0) PI) HO)}) 


((= N3) (SETQ ТВТ 
$ TRZ 
ТР1 
TPZ 
((= N4) (SETQ TRI 
т 


(POLAR TT3 (* (/-3 2-0) PIL D2) 
(POLAR TRI (* (/ 3 2.0) PI) HD} 
(POLAR ТВ1 PI HO) 

(POLAR TR2 PI HO))) 

(FOLAR TT4 PI D2) 


R2 (POLAR ТВ1 PI HD) | 

TP1 (POLAR TR1 (/ PI 2) HO) 

TP2 (POLAR TR2 (/ PI 2) HO)))) 
(СЕТО ТАЗ (РОГАВ TP1 (- (/ РТА) (* (/ PI 2) (- N1))) HD)) 


; изображение двери 
(COMMAND "BREAK" ТК1 TR2 
"BREAK" TP1 TP2 
"GINE? TPL TRL =S 
"CINE" ТРО TRE “7 
"LINE" TPL TR3 T~“ 
"ARC" TR3 "END" TP2 TR2) 


) 


(OFFICE 24 24 '(3 10 30) '((24 24 144 120 "" 0) (28 28 136 112 "" 0) (29 29 
24 60 "Стол" 0) (80 29 30 60 "Доска" 0) (145 29 18 36 "Шкаф" 0) (56 48 16 24 


a «< `` 


`ь 


# 


# 


; удаление части стенки офиса 
; удаление части стенки офиса 


соединение кончиков стен офиса 
соединение кончиков стен офиса 


; изображение открытой двери 
; изображение следа двери 


“Кресло” 0) (132 100 12 18 "Стул" 206) (140 56 16 24 "Кресло" 162))} 
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Рис. 3.2. Изображение плана офиса функцией [OFFICE ...} 


После загрузки программы и ее выполнения будет создано изображение 
плана офиса с мебелью в графическом окне AutoCAD (рис. 3.2). 


3.2. Создание параметрического изображения 
многоступенчатых объектов 


3.2.1. Постановка задачи 


Создать различные функции на AutoLISP для построения изображения 
многоступенчатого объекта (колонны, ракеты, вала и т. д.) с заданным чис- 
лом ступеней — М и заданными размерами каждой ступени: ширина (диа- 
метр) ступени — D; длина ступени - L. 


3.2.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Вначале подготовим эскиз простейшего трехступенчатого объекта 
(рис. 3.3) и постараемся выявить особенности создания его изображения. 

Изображение трехступенчатого объекта можно выполнить различными 
способами, например, отобразить первую ступень объекта, затем вторую 
H T. д. или нарисовать общий контур объекта, затем четко выделить ступе- 
ни. Можно начать рисование слева, справа, снизу, сверху... 


Выделим некоторые особенности прорисовки многоступенчатого. 


объекта: 
° во-первых, желательно рисовать объект таким образом, чтобы BILO- 
следствии не пришлось прорисовывать один и тот же элемент дважды: 


Pey 


EE hei 
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T1 T2 


D1 


T4 


L3 
Рис. 3.3. Трехступенчотый объект 


° во-вторых, следует выбрать такую технологию прорисовки объекта, 
чтобы ее можно было использовать при прорисовке объекта с любым 
числом ступеней. l 

Логичнее начать прорисовку объекта слева направо относительно HEKO- 
торой базовой точки (ВТ), например, лежащей на левом торце объекта на 
осевой линии (рис. 3.3). 

Из анализируемого чертежа объекта видно, что первую его ступень MOX- 
но изобразить ломаной линией, проходящей через четыре точки, принад- 
лежащие первой ступени: T1, T2, T3, T4. Координаты этих точек легко 
определить, если известны координаты базовой точки — ВТ, ширина (диа- 
метр) объекта — D и длина первой ступени - L. 


3.2.3. Разработка последовательности действий 
и комплекса функций для параметрического 
изображения многоступенчатого объекта 


Для создания изображения любой ступени достаточно знать базовую точ- 
ку ступени объекта, размеры ступени и уметь определять координаты то- 
чек каждой ступени объекта. Координаты следующей базовой точки сту- 
пени объекта можно найти путем перемещения от базовой точки 
предыдущей ступени объекта на величину L, равную длине ступени объ- 
екта, и Т.Д. | 
Координаты точек ступени объекта можно определить, если перемес- 
титься, например, от базовой точки ступени объекта вверх и вниз на рас- 
стояние, равное половине ширины (диаметра) ступени. В результате по- 
лучим координаты точек T1 и T4. Из этих точек следует переместиться 
вдоль объекта на расстояние, равное длине ступени объекта — получим 
точки T2 и ТЗ. Затем построим изображение ступени объекта, используя 


Создание изображения многоступенчатых объектов 119 


функцию (COMMAND...) и команды графического редактора AutoCAD 
"РИМЕ": 
(COMMAND "PLINE" ВТ”"И" 1 1 T1 T2 T3 T4 BT" ") 


где "РЫМЕ" — команда графического редактора для изображения поли- 

линии, проходящей через несколько точек, с заданной шириной; 
"W" (Width) — ширина. 

Первая цифра определяет ширину линии в начале, ‘вторая цифра — 
в конце полилинии. 

С помощью цикла можно последовательно изобразить все имеющиеся 
ступени. Создание изображения многоступенчатого объекта можно осуще- 
ствить как в диалоговом режиме, так и путем обращения к функции с за- 
данными параметрами. 

Разработку программы начнем с оформления ввода исходных данных 
вдналоговом режиме. Будем запрашивать число ступеней объекта (№. 

На языке AutoLISP этот запрос будет выглядеть следующим образом: 


(SETO М (GETINT "\п Введите число ступеней объекта N = ")) 


где (GETINT...) — встроенная функция, которая обеспечивает ввод HE- 
лого числа (СЕТ INTeger — получить целое число). 

Подсказка оформляется как текстовая константа (в кавычках). Ее дли- 
на не должна превышать 100 символов. 

(SETQ...) — встроенная функция, которая обеспечивает присвоение TMe- 
ременной М значения функции (СЕТПУ\Т...), то есть числа ступеней объек- 

та. После выполнения функции (ЗЕТО...), если, например, было введено 
число ступеней, равное 4, получим результат — значение переменной М = 4. 

Символы \п в подсказке в текстовой константе являются управляющи- 
ми — они обеспечивают перевод подсказки на новую строку. 

Имя переменной может состоять из латинских букв, цифр, специальных 
символов, кроме ().'"; и должно начинаться с буквы. В LISP перемен- 
ные и константы называются атомами. К константам относятся числа, 
целые и вещественные; строки символов, заключенные в кавычки (тексто- 
вые константы); логические константы (T - истина, NIL — ложь). 

AutoLISP содержит множество различных функций ввода, в том числе: 

(СЕТВЕАТ....) — ввод вещественного числа; 

(GETSTRING...) — ввод строки текста; 

(СЕТРОЛТУТ...) — ввод координат точки; 

(GETDIST...) — ввод расстояния и другие. 

Базовую точку определим с помощью координат X и у. 

(SETQ XT (GETREAL "\п Введите координату X базовой точки ХТ = ") 
УТ (GETREAL "\п Введите координату у базовой точки УТ = ") 
BT (LIST XT YT) ) 
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Точка в AutoLISP определяется как список координат Хи Y. 

Функция (LIST ХТ УТ) задает базовую точку ВТ. Запрос базовой точки 
можно выполнить с помощью функции (СЕТРОПМТ...), которая в нашей 
задаче записывается следующим образом: 

(SETQ ВТ (СЕТРОТМТ "\п Введите базовую точку ВТ ")} 

В ответ на запрос вводятся сразу две координаты: X и у, без пробелов 
через запятую, например, 7,15. 

Разработка цикла для ввода размеров каждой ступени и создание ее изоб- 
ражения могут быть выполнены следующими различными функциями: 

e (REPEAT <число> <выражение>...) — вычисляет выражения задан- 

ное число раз; 

e (WHILE <условие> <выражение>....) — вычисляет выражения до тех 
пор, пока выполняется заданное условие (выражение-предикат); 

e (FOREACH <переменная> <список> <выражение>....) — вычисляет 
выражения для всех элементов списка. Сначала присваивает перемен- 
ной значение первого элемента списка и вычисляет все входящие 
в функцию выражения, затем присваивает переменной значение вто- 
рого элемента списка и снова вычисляет все выражения и т. д., вклю- 
чая последний элемент списка. 

Используем в нашей задаче простейшую функцию формирования цикла 
(REPEAT <число> <выражение>...). В одном цикле будем запрашивать 
ввод ширины (диаметра) ступени объекта — D и длины ступени объекта — L: 

[REPEAT N | 

(SETQ D (GETREAL "\п Введите диаметр ступени объекта D =") 
L (СЕТВЕАЬ "\п Введите длину ступени объекта L = ") 
R° DOOSI) 
) à 

В этом же цикле будем определять точки ступени и формировать ее 
изображение. Для определения точек используем функцию 

(POLAR <точка> <угол> «расстояние>) 

Углы в AutoLISP по умолчанию отсчитываются от горизонтальной оси 
против часовой стрелки. Определение точек одной ступени будет выгля- 


деть Так: | 
(SETQ T1 (POLAR ВТ (/ РТ 2) В) 
T2 (POLAR T1 0 L) 
T4 (POLAR BT (* 1.5 PI) R) 
T3 (POLAR T4 0 L) 


) 
Создание изображения объекта выполняется с помощью функции 


AutoLISP: 
(COMMAND "<команда AutoCAD>"... [аргументы)]...[ключи]...) 
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Для формирования полилинии используется команда "PLINE", которая 
позволяет отрисовывать элементы чертежа, состоящие из прямолинейных 
н дуговых сегментов (с указанием ширины). Эта команда может иметь 
различные ключи в зависимости от режима изображения линий или ре- 
жима изображения дуг. 

В режиме изображения линий используются следующие ключи: 

"А" (Arc) — переход в режим дуги; 

"С" (Close) — замкнуть отрезком; 

"L" (Length) — суммарная длина линий. 

В режиме изображения дуг используются следующие ключи: 

"А" (Angle) — центральный угол; 

"CE"(CEnter point) — центр дуги; 

“CL” (СГозе) — замкнуть дугой; о 

"D" (Direction) — направление; 

"L" (Line) — переход в режим линий; 

"R" (Radius) - радиус дуги; 

"S" (Second point) — вторая точка; 

"U" (Undo) — отмена последней линии. 

Ключи для изменения ширины полилинии: 

"H" (Half-width) — полуширина; 

"W" (Width) — ширина линии. 

Создание изображения одной ступени. будет выглядеть так: 

(COMMAND "PLINE" ВТ "М" 0.1 0.1 T1 T2 т ча "С") 

(SETQ ВТ (POLAR ВТ 0 L)) 

Ниже представлена функция (ММОСО$ТО) создания изображения 
многоступенчатого объекта в диалоговом режиме. 


3.2.4. Программа (функция) параметрического 
изображения многоступенчатого объекта в диалоговом 
режиме 


F хххххххххккккххкххххххкххкхкхххккхххххкхккххкххххххххххххкххХххХхххХХххххХххХхХхХхХх 


; (MNOGOSTD) - функция создания параметрического изображения 


; многоступенчатого объекта в диалоговом режиме 
: kkkkkkkkkkkkkkkkkkěkkkěkkkkkkěkkkkkákkkkkěkkkěkkkěkkkkkkkkkkkkkkkkákkákkěkkkkkkx 


(DEFUN MNOGOSTD () ; начало создания функции; 
'’ (ЗЕТУАВ "СМОЕСНО" 0) ‚ отключение эха команд 
(ЗЕТУАВ "BLIPMODE" 0) ; отключение изображения маркера 


(COMMAND "LIMITS" "0,0" "297,210"."200М" "A") 
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Рис. 3.4. Пораметрическое изображение многоступенчатого объекта, 
созданное при помощи функции (ММОСО$ТО} 


SRTSCR) ; переход на текстовый экран 
NT "\п Введите число ступеней объекта М =") 
ЕТВЕАГ "\n Введите координату X базовой точки XT = 
YT (GETREAL "\п Введите координату у базовой точки УТ 
тет AL YTY) , 


N oA 
trj 
|) 
rab 
р 
D 
(71 
-J 
j iH 
| 
z3 


И 
= 
Stuga? 


(GETREAL "\n Введите диаметр ступени объекта D = ") 
(СЕТКЕАГ "\п Введите длину ступени объекта =") 
[5] 

пеление характерных точек ступени объекта 

(POLAR ВТ (/ PI 2) В} 

(POLAR T1 0 L) 

(POLER ВТ (* 1:3 BL] В) 

(POLAR T4 0 L) ) 

(COIAND “PLINE” ВТ "W" O71 0.1 TFT? T3 TA "С") 

(SETQ BT (POLAR BT 0 L))) 


о 
г 
(1) 
J4 


t} J =] 
Hœ M 1-2 


L] 
[9% 


} 5 
(MNOGOSTD) ; вызов функции 
Для создания многоступенчатого объекта, изображенного на рис. 3.4, не- 
обходимо ввести следующие значения в ответ на соответствующие запросы: 


ведите число ступеней объекта М = 3 
зедите координату х базовой точки ХТ = 20 
Введите коосдинату у базовой точки УТ = 160 
Введите диамето ступени объекта D = 40 
Взедите длину ступени объекта L= 50 
Введите диаметр ступени объекта D = 50 
Рвелите длину ступени объекта L= 60 
Рведите диаметр ступени объекта D = 30 
Взедите длину ступени объекта L= 70 
Разработаем теперь функцию (ММОСОЗТР...), исходные данные которой 
вводятся через аргументы функции. В качестве аргументов возьмем базовую 
точку объекта ВТ и список пар LD. Каждая пара представляет собой список 
- и включает диаметр D и длину ступени объекта L. Создание изображения 
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объекта также выполним в цикле, только в качестве функции цикла исполь- 
зуем функцию (ЕОВЕАСН...). 


{FOREACH <переменная> <список> <выражение>...) 


Допустим, имя переменной EL. Вначале присвонм переменной ЕТ. значе- 
ние первой пары списка LD — параметры первой ступени объекта и вычис- 
лим все последующие выражения, входящие в функцию (ЕОВЕАСН...). 
Затем присвоим переменной EL значение второй пары списка и т. д., пока не 
будут исчерпаны значения, определяющие размеры всех ступеней объекта. 

Чтобы начать создание изображения ступени объекта, необходимо вы- 
делить из списка '(D L) значения ширины (днаметра) и длины ступени 
объекта. Для этого можно использовать две встроенные функции - 
(CAR...) и (СОВ...). Функция (CAR EL) выделяет из списка первый эле- 
мент — ширину (диаметр) ступени; функция (CDR EL) - хвост списка, 
то есть список без первого элемента '(L). Используя функцию (CAR '(Г)), 
можно выделить из списка первый элемент — длину ступени. Так как эта 
процедура очень часто используется в AutoLISP для упрощения ее записи 
применяется выражение (CADR EL), которое позволяет получить второй 
элемент списка. Диаметр и длина ступени могут быть определены как 


(SETQ D (CAR EL) 
L (CADR EL) } 


Для получения элементов списка можно использовать и функцию 
(МТИ...), тогда размеры ступени определяются следующим образом: 


(ЕТО D (NTH 0 EL) 
L (NTH 1 EL)) 


Для создания изображения многоступенчатого объекта так же, как 
и в функции (ММОСО$ТО), будем использовать команду AutoCAD 
"РЫМЕ". 


3.2.5. Программа (функция) параметрического 
изображения многоступенчатого объекта 


‚ ХХХХХКХХХККХККККХКККККККККККК К КК ККККККХКККККЖККХКХКЖКХ 


; (ММОСОЗТР ВТ LD) - функция создания изображения 

; многоступенчатого объекта с заданными параметрами 
; Аргументы функции: 

; ВТ - базовая точка для изображения объекта (X Y) 

; LD - список пар диаметров и длин ступеней объекта 

‚ (РЕБЕ (О и ие. } 

; Пример вызова функции (ММОСОЗТР ВТ LD} 

; (ММОСОУТР ' (10 90) '((80 70) (90 30) (70 40) (50 70))) 


; ХЕХХККККККККККККККККККККККККККХКККККККККККККККХККХКККХ 


= 
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Рис. 3.5. Параметрическое изображение многоступенчатого объекта, 
созданное при помощи функции (ММОСОЗТР...] 


DEFUN ММОСОСТР (BT LD) ; начало создания функции 
(ЗСЕТУАВ "СМОЕСНО" 0) ; отключение эха команд 
(ЗЕТУАК "BLIPMODE" 0) ; отключение изображения маркера 


; установка формата чертежа 
(COMMAND "LIMITS". "0,0" "297,210" "ZOOM" "А") 


(FOREACH EL LD ; выделение элемента из списка 
„+ D (CAR EL) ; диаметра ступени объекта 
L (CADR EL) ; длины ступени объекта 
(№ 05) 


; определение характерных точек ступени объекта вида 
(ЗЕТО ТТ (POLAR ВТ (/ PI 27 К) 
T2 (POLAR T1 0 L) 
T4 (POLAR BT (* 1.5 РТ} R) 
T3 (POLAR T4 0 L) ) 
; создание изображения ступени объекта 
(COMMAND "РЫТМЕ" ВТ "И" 0.10.1 Т1 Т2 T3 TASC) 
°(ЗЕТО ВТ (POLAR ВТ 0 L))) 
) 
(ММОСОЗТР ' (10 160) '((20 40) (50 50) (20 40) (30 20))) l 

Результатом выполнения функции с заданными параметрами будет 
изображение многоступенчатого объекта, приведенное на рис. 3.5. 

Однако без осевой линии чертеж объекта будет неполным. Отобразить 
осевую линию можно с помощью следующих команд AutoCAD: 

(COMMAND: SLAYER" "N" “ОСТ! "LW CENTER" "OGIS agu nET Ag 
"LINE" (POLAR BP PI 5) (POLAR BT 0 5)) 

Как правило, осевые линии отображают на отдельном слое. Назовем 
этот слой "ОЗ" ( по умолчанию используется слой "0"). Для управления: 
слоями существует команда "LAYER" графического редактора AutoCAD. 
Ключ М (New - новый) указывает на создание нового слоя; ключ L 
(Ltype — тип линии) определяет тип линий; ключ $ (Set — установить) 
устанавливает текущий слой. 

Чтобы задать типы линий, необходимые для получения конструкторской 
‘документации, используют следующие ключи: "CONTINUOUS" (непре- 
рывный), "CENTER" (осевой), А (пунктирный), "ОАЗНООТ' 


(штрихпунктирный) и другие. 
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' 


T1 T2 


Рис. 3.6. Варианты графического изображения ступеней объекта: a) первой ступени объекта; 
6} ступени объекта, ширина (диаметр) которой больше ширины (циаметра] предыдущей ступени; 
в) ступени объекта, ширина [диаметр] которой меньше ширины [диаметра] предыдущей ступени 


пи 


Двойные кавычки "" в функции (COMMAND...) соответствуют нажа- 
тию клавиши Enter. Команда "LINE" обеспечивает рисование осевой JIH- 
нии. Начало этой линии находится в точке, заданной функцией (POLAR 
BP PI 5). Конец осевой линии задается функцией (POLAR BT 0 5). 

Напомним, что функция (POLAR...) формирует точку путем перемеще- 
ния от заданной точки в заданном направлении на заданное расстояние. 
Число 5 — это расстояние перемещения от исходной точки; ВР - базовая 
точка, определяется перед циклом: 

(SETQ ВР BT) 

При использовании одного прохода пишущего устройства для изобра- 
жения ‘объекта возможны три способа отрисовки его ступеней (рис. 3.6). 

Можно разработать функцию, которая обеспечит создание изображения 
многоступенчатого объекта без повторного рисования некоторых совпада- 
ющих частей. На рис. 3.6 приведены возможные варианты графического 
изображения ступеней объекта. 

Для создания изображения первой ступени объекта можно использо- 
вать выражение вида (см. рис. 3.6, а): 

(COMMAND "PLINE" ВТ "М" 1-1 T1 T2 T3 T4 BT" ") 

Для создания изображения ступени объекта, ширина (диаметр) которой 
больше ширины (диаметра) предыдущей ступени, можно использовать. 
выражение вида (см. рис. 3.6, 6): 

(COMMAND "PLINE" T10 "М" 1 1 T1 T2 T3 T4 T40 " ") 
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Для создания изображения ступени объекта, ширина (диаметр) которой 
меньше ширины (диаметра) предыдущей ступени, можно использовать 
выражение вида (см. рис. 3.6, в): 

(СОММАМО "PLINE" T1 "W" 1 1 T2 T3 T4" ") 

Внимательный анализ графических изображений, представленных на 
рис. 3.6, показывает, что каждое из них можно построить с помощью вто- 
poro варианта. В первом случае (см. рис. 3.6, а) точки T10 и T40 совпадают 
с базовой точкой ВТ, в третьем случае (см. рис. 3.6, в) точка T10 совпадает 
с точкой T1, а точка T40 - с точкой ТА. Если диаметр, на концах которого 
лежат точки T10 и T40, обозначить ОО, то в первом случае его величина 
будет равна 0, во втором — диаметру предыдущей ступени, в третьем — ди- 
аметру изображаемой ступени объекта. Точки T10 и T40 определяются ny- 
тем перемещения от базовой точки строящейся ступени объекта вверх 
и вниз на величину, равную половине ширины (диаметра) РО, соответ- 
ственно. Создание графического изображения объекта можно организо- 
вать с помощью цикла. | 

Для определения характерных точек ступени объекта T10, T1, T40, T4, 
T2, ТЗ используется функция (LIST...), которая формирует точку по двум 
координатам X и Y. 

Построим изображение многоступенчатого объекта с осевой линией. 
Сформируем также список точек, через которые пройдут выносные линии 
для указания размеров ширины (диаметра) ступени. 

Функция (ММОСО$ТРМ...) удовлетворяет всем вышеперечисленным 
требованиям: 


i kikkkkkřiiřikkkkkkkkkkkkřkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkákák 
; (MNOGOSTPM X Y LD) - функция создания параметрического 

; изображения многоступенчатого объекта 

Аргументы функции: 

Х - координата х базовой точки ступени 

4 - координата у базовой точки ступени 

LD - списоЕ, включающий ширину (диаметр) и длину каждой ступени 
(STUP) - функция создания изображения ступени объекта 

Пример вызова функции (ММОСОЗТРМ X У LD): 

(ММОСОЗТРМ 50 100 '((80 70) (90 50) (70 100) (50 70})} 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


DEFUN STUP () 
(SETO TIO (LIST X (t Y RO)) } 
О, RI) 
T40 (LIST X (- Y RO)) , 
T4 (LISTX (-УВ)) 
X (+ XL) 


T2 (LIST (+УВ)}. 
T3 (LIST X (- YR))) 
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Рис. 3.7. Параметрическое изображение многоступенчатого 
объекта, созданное при помощи функции (ММОСОЗТЕМ...] 


(COMMAND. "РЫМЕ" Т10 "И" 0.10.1 TI T2 T3 TA т40 =] 
) : 


(DEFUN ММОСОЗТРМ (ХУ LD) ; Начало описания функции 
(SETVAR "СМБЕСНО" 0 ) ; отключение эха команд 
(ЗЕТУАК "BLIPMODE" 0) ; отключение изображения маркеров 
(COMMAND "LIMITS" "0,0" "297,210" "ZOOM" "А") ; установка поля 
(SETO ВР {LIST (-Х5) У) ; начало осевой линии 
Л () ; начало создания списка 
КО 0) | ; начальное значение RO 
(FOREACH EL LD ; цикл построения ступеней 
(SETQ D (CAR EL) ; определение диаметра ступени 
L (CADR EL) ; определение длины ступени 
В ГЕ =)) ; определение радиуса ступени 
(ТЕ (< R RO) (SETQ ВО В)) ; определение КО для 1-й ступени 
(STUP) ; изображение 1-й ступени 
(ЗЕТО RO R) ; подготовка к последнему построению 
) 
(SETO ВТ {LIST (+Х5) У} } ; конец осевой линии 


(COMMAND "LAYER" "М" "OSI" "L" "CENTER" "OSI" "S" 05" 
canit INE" OBP BRANT) 
(PRIN1) 
) 
(MNOGOSTPM 10 60 '({30 40) (40 50) (30 30) (15 40))) ; вызов функции 


В результате выполнения функции (MNOGOSTPM...) получим n306- 
ражение многоступенчатого объекта (рис. 3.7). 


3.3. Нанесение размеров на многоступенчатом 
объекте и ввод текста 


3.3.1. Постановка задачи 


Допустим, известна функция создания изображения многоступенчатого 
объекта с заданным числом ступеней, заданными диаметрами и длиной 
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каждой ступени. Требуется разработать функцию, обеспечивающую нане- 
сение размеров (образмеривание) на многоступенчатом объекте. 


3.3.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Изображение размеров включает следующие составляющие: 
e размерную линию — линию со стрелками (засечками), проведенную па- 
раллельно измерению; 

° выносные линии — линии, обеспечивающие вынос размерной линии вне 
образмериваемого элемента объекта; 

e размерныи текст — текстовую строку, содержащую размер. 

Предположим, что размерная линия для указания размера диаметра 
должна отстоять от правой границы соответствующей ступени объекта 
на 10 ед. влево. 

Указывать размеры длины ступеней объекта будем слева направо, так, 

как показано на рис. 3.8. 
Для указания размера ширины (диаметра) ступени объекта необходимо 
определить: 

° положение размерной линии: вертикальное или горизонтальное (в па- 
шей задаче эта линия должна быть вертикальной); 

e координаты точек начала выносных линий (в нашей задаче такими 
точками для первой ступени объекта могут быть T12 и T13); 

* координаты точки, через которую пройдет размерная линия (назовем 
эту точку Т1В). Координаты данной точки можно определить, зная KO- 
ординаты точки Т12 и сместившись относительно этой точки влево по 
горизонтали на заданное число единиц. 


T21 T2R T22 
T11 TSR T32 


T4R T42 


EE EE E ЗИНИЗЕИЕНЕТЕ 
| 120.0 


а. 0 пе ЗИ НЕНАЦЕ абы 


- Рис. 3.8. Изображение многоступенчатого объекта с размерами и обозначение точек 


Нанесение размеров на многоступенчатом объекте и ввод текста 129 


Проставить размер диаметра необходимо на каждой ступени объекта. 
Для этого можно сформировать цикл и использовать список пар точек 
правого торца каждой ступени объекта. Для объекта, представленного на 
рис. 3.8, список пар точек будет выглядеть так: 


(12 1131122 12371732453) "(T42 Та3)) 


Чтобы проставить размер длины ступени объекта так же, как и диаметр 

объекта, необходимо определить: 

° положение размерной линии (в нашей задаче — горизонтальное); 

° координаты точек выносных линий (в нашей задаче первой точкой для 
всех ступеней объекта может служить базовая точка объекта BP BTO- 
рой — базовая точка следующей ступени объекта ВТ или вторая (ниж- 
няя) точка из пары точек); 

точку, через которую будет проходить размерная линия (назовем ее 
TiR). 

Для того чтобы проставить длину ступеней объекта, необходимо сфор- 

мировать цикл. 


3.3.3. Разработка последовательности действий 
и программы нанесения размеров на 
многоступенчатом объекте 


Формирование размеров многоступенчатого объекта предполагает выпол- 
нение следующих действий: 
_ + формирование цикла для указания размера диаметра ступени объекта; 

° выделение необходимой пары точек начала выносных линий из спис- 

ка пар точек для указания диаметра ступени; 

° выделение из пары точки начала первой выносной линии; 

° выделение из пары точки начала второй выносной линии; 

° определение точки положения размерной линии; 

e указание размера диаметра ступени объекта; 

° определение точки положения линии для указания размера длины 

ступени; 

* выделение точки начала для второй выносной линии; 

° указание размера длины первой ступени; 

e формирование цикла для указания размеров длины. 

Определим список пар точек для указания размеров. В языке AutoLISP 
есть встроенная функция создания списка (LIST...) (список, напомним,— 
это упорядоченная последовательность элементов, заключенных в круг- 
лые скобки). 

(LIST <элемент> <элемент>.:) 


5 — 1278 


= - о здать а Бы 


—- 


^^ = 
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Элементами могут быть переменные, числа, строковые и логические 
константы (их называют атомами) и списки. Элементы разделяются про- 
оелами. Например, список '(А В '(С D) Е) состоит из четырех элементов, 
где третий элемент представляет собой список из двух элементов. 

Сформируем список пар точек начала выносных линий для каждой сту- 
пени объекта и назовем этот список ГТ2ТЗ. Формирование указанного 
списка можно начать следующим образом: 


(SETQ 11273 '() 


За 2 EIs 
ESL (CONS (LIST F12 T13) а) 

где функция (LIST...) создает список из двух точек T12 и T13. Функция 
(CONS...) формирует список из пар точек. 

Функция (CONS...) добавляет новый элемент в начало списка: 

(CONS <=озый злемент> <список>) 

В результате выполнения функции (SETQ...) переменной ЕТ2ТЗ будет 
соответствовать список вида '('(T12 Т13)). 

Список пар точек для двух ступеней объекта можно построить так 
(см. рис. 3.8): 

СЕЛО 11273 (CONS (LIST T22 T23) LT2T3)) 

В начало прежнего списка добавляется список из двух точек '(Т22 T23). 
В результате переменная ГТ2ТЗ будет содержать список '('(Т22 T23) 
(T12 Т13)). 

Если следующая ступень объекта — ступень меньшей ширины (диамет- 
ра), то расширение списка будет выглядеть так (см. рис. 3.8): 

(SED ТЕ (CONS (LIST T32 T33) LT2T3)) 

Для того, чтобы формирование списка пар точек можно было осуще- 
ствить в цикле, достаточно использовать для обозначения точек вторую 
цифру (см. рис. 3.8). 

В AutoCAD имеется множество видов команд для нанесения размеров. 
Кроме того, проставить размеры можно путем установки значений управ- 
ляющих (системных) размерных переменных. С этой целью определим 
функцию (SETDIM...). 

Управляющие размерные переменные (их около 40) начинаются с букв 
DIM... (DIMENSION - размер). Почти все они имеют значения по умол- 
чанию и чтобы узнать их, достаточно набрать в командной строке 
AutoCAD команду DIM, а в строке запросов ключевое слово STATUS: 


ременных и их текущими значениями (рис. 3.9). С помощью вертикальной 
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2$ AutoCADo Текстовое Окно EJ 
г ЕО | | TENISA 


Command: dim 
Dim: status 


Alternate units selected 
Alternate unit decimal places 
Alternate unit scale factor 
Alternate tolerance decimal places 


Alternate tolerance zero suppression 
Alternate units 
Alternate unit zero suppression 
Prefix and suffix for alternate text 
Create associative dimensions 

0.1800 Arrow size 


Нажмите ВВОД ‚для продолжения: 


Рис. 3.9. Текстовое окно AutoCAD с фрагментом списка размерных 
переменных и их текущих значении 


полосы прокрутки можно просмотреть все значения размерных системных 
переменных. | 

Состояние ON/OFF означает, что размерная переменная установлена/ 
не установлена. В AutoLISP состоянию OFF соответствует значение 0, 
состоянию ОМ - 1. В нашей задаче функция настройки размерных пере- 
менных (ЗЕТОПМ...) выглядит следующим образом: 


(DEFUN SETDIM) 


(RMAX) ; функция настройки размерных переменных 
(СОММАМО "UNITS" "2" "0" "1" "1" "0" "N") ; система единиц 

(ЗЕТУАК "DIMTAD" 1) ; Текст над размерной линией 

(SETVAR "DIMSOXD" 1) ; текст между выносными линиями 
(ЗЕТУАВ "DIMTIH" 6) ; текст, параллельный размерной линии 
(ЗЕТУАЕ "DIMDLI" (* ВМАХ 0.25)) ; отступ между линиями 

(ЗЕТУАВ "ОТМЕХЕ" (* КМАХ 0.05)) ; увеличение размерных линий 

(SETVAR "DIMTSZ" 0) ; изображение стрелки, а не засечки 
(ЗЕТУАВ "DIMASZ" (* ВМАХ 0.15)) ; длина стрелки 


ВМАХ — максимальный радиус из всех ступеней объекта. 

Теперь перейдем к указанию размеров многоступенчатого объекта с по- 
мощью AutoLISP. 

Формирование цикла для указания размера диаметра ступени объекта 
можно организовать с помощью функции (ЕОКЕАСН...). 


(FOREACH <переменная> <список> <выражение>... } 


5 


ыыы T 
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Эта функция последовательно присваивает значения элементов списка 
переменной и при каждом значении переменной вычисляет выражения, 
начиная с первого элемента списка. Процесс осуществляется до тех пор, 
пока не будут вычислены выражения для всех значений элементов списка. 

Выделить необходимую пару точек начала выносных линий из списка пар 
точек можно с помощью параметров функции (ЕОВЕАСН...). Для этого 
функция (FOREACH...) должна быть записана следующим образом: 


({ГОЗЕЛСН EL LT2T3 <выражение>...) 


где EL — переменная, которой присваивается значение элемента списка 
LT?2T3. В этом списке содержатся пары точек, а выражение — это некото- 
рая последовательность функций AutoLISP. 
Выделить из пары точку начала первой выносной линии можно с помощью 
функции (CAR <список>), которая выделяет первый элемент списка. 
Если, к примеру, мы рассматриваем трехступенчатый объект, то список 
ГТ2ТЗ будет иметь следующий вид: '('(Т32 T33) (T22 T23) (T12 113)). 
В цикле переменная EL будет последовательно содержать список пары 
точек правого торца ступени объекта. Функция (CAR...) позволит выде- 
лить из списка пары точек точку начала первой выносной линии. 
Выделение из пары точки начала второй выносной линии можно осуще- 
ствить с помощью функции (CADR...). 
Сохраним значения точек начала первой и второй выносных линий 
в переменных T2 и T3 соответственно с помощью функции (ЗЕТО....): 
(ЕТО 12 | 


C 
T3 (CADR EL) ) 


следующего выражения: 

ZETO TR (LIST (- (CAR T2) 10) (CADR Т2)}} 

Точка T2 — это список '(X2 Y2), где X2 — координата X точки T2; Y2 - 
координата У точки T2. 

Функция (CAR T2) выделяет значение координаты Х точки T2. Из это- 
го значения вычитается 10 единиц, в результате получается значение ко- 
ординаты X точки T2. Выражение (CADR T2) определяет значение коор- 
динаты У точки ТВ. С помощью функции (LIST...) образуется пара — 
список из двух координат, то есть точка TR, через которую должна пройти 
размерная линия. i 

Указание размера диаметра ступени объекта выполняется командами 
графического редактора AutoCAD с помощью функции (СОММАМО...): 

(COMMAND “DIMI” "VER" Т2 ТЗ ТВ "$%С<>"} 

"DIM1" — команда для указания размеров. Возможны несколько видов 

указания линейных размеров. Они отличаются только углом, под которым 
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проводится размерная линия. Для каждого вида размерной линии имеет- 
ся свой КЛЮЧ: 

"НОВ" — HORizontal — горизонтальная размерная линия; 

"VER" — VERtical — вертикальная размерная линия; 

"ALI" — А Шете4 — линия, параллельная начальным точкам выносной 
линии; 

"ВОТ" — ROTated - линия, повернутая на заданный угол. | 

После ключа "УЕК" задаются T2 и T3 - точки начала выносных линий, 
затем ТК - точка положения размерной линии. Текстовая константа обес- 
печивает вывод знака диаметра перед значением точек T2 и T3. 

Для ввода в размерный текст специальных символов, например, симво- 
ла диаметра, используются управляющие коды: 

%%0 — включение/выключение режима надчеркивания; 

%%и — включение/выключение режима подчеркивания; 

%%4 — специальный символ <градус» (O); 

%%р — специальный символ «допуска» (+); 

%%с — специальный символ «диаметр» (Ø); 

%%% — вывод одиночного символа «процент»; 

%%ппп — специальный символ с десятичным кодом NNN. 

Определить точку положения размерной линии при указании размеров 
длины ступеней объекта можно с помощью следующего выражения: 

(SETO TR'(LIST Х.[- Y (* RMAX 1.2))) 
то} 

Проставлять размеры ступеней объекта начнем с первой ступени, а спи- 
сок пар точек, который был создан ранее, содержит пары точек, начиная 
с последней ступени объекта. Это означает, что переменная ЕТ2ТЗ содер- 
жит список '('(ТЗ2 T33) '(Т22 T23) '(Т12 T13)). Для того чтобы изменить 
порядок элементов в списке на обратный, в AutoLISP имеется встроенная 
функция (REVERSE...). 

(REVERSE <список>) 

После реверсирования переменная СТ2ТЗ будет содержать список 
`(’(СТ12 T13) '(Т22 T23) `(Т32 T33)). 

Первая пара точек соответствует первой ступени объекта, вторая — BTO- 
рой H T. д. 

Выделить точку начала второй выносной линии для того, чтобы проставить 
размер длины ступени. объекта, можно с помощью следующего выражения: 

(SETQ T3 (CADR EL) 
PEETLA 

Проставить размер`длины первой ступени объекта можно с помощью 

команды AutoCAD для указания размера: 
(COMMAND "DIM" "НОВ" ВР T3 TR" ") 


wm ~ 
> ‹ 


‹ 
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Здесь используется команда "DIM". Отличие команд "ОМ!" и "DIM" 
заключается в том, что команда "ОТГМ1" позволяет проставить один раз- 
мер, а‘команда “DIM” — последовательность размеров. 

Формирование цикла для указания размеров длин ступеней объекта мож- 
но осуществить с помощью функции (ЕОВЕАСН...): 


ивания длины ступени объекта 
SETQ T3 (CADR EL) ; точка начала 2-й выносной линии; 


(ТЕ (=11) | 
(COMMAND "DIM" "HOR" ВР ТЗ TR "") ; указание длины 1-й ступени 
(СОММЕМО "ВАО" T3 "")) ; указание длины всех ступеней, кроме 1-й 


e — —  арыщь 


) 
Заметим, что размеры длины ступеней представляют собой последова- 


тельность базовых размеров. 
Последовательность связанных размеров в графическом редакторе 
AutoCAD строится с помощью команд "BAS" — BASELINE (базовый) 


г "СОМ" — CONTINUE (продолженный). 

Таким образом, чтобы проставить размеры длины всех ступеней, кроме 
1-й, следует использовать команду BASELINE. Ниже представлена функ- 
ция (ММОСО$ЗТВК...) создания и указания размеров многоступенчатого 


объекта. 


3.3.4. Программа параметрического изображения 
и указания размеров многоступенчатого объекта 


ххкххкхкккккххкккхккккхххкккКкКхХххкхХКХКХХХХххХКХхХХхХХХХХХХККЖХХХКХХКХХХКкКкХ 
s 


(MNOGOSTR X Y LD) - Функция создания изображения 
м=огоступенчатого объекта и указания его размеров 


; Аргументы оункции: 

: X, У - координаты базовой точки объекта по осям Хи Y 

; LD - список диаметров и длин ступеней объекта вида 

рт LL) р (Жане) 

(СЕТОТМ FMAX) - функция установки размерных переменных для 
огределения вида размерных линий и самих размеров 

ВМАХ - максимальный радиус из всех ступеней объекта 
(РА7МУ) - Функция указания размеров (образмеривания) чертежа 
(5ТОР)- функция создания ступени объекта 

Пример вызова функции (MNOGOSTR X У LD) 

(ММОСОСТР 10 100 *((40 70) (60 50) (40 30} (70 100))} 


К КЖККККККККККККККЕКККККККККККККККККККККККККККК КК КККККККККККЖКЖКХ 


ъз 
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(DEFUN SETDIM (RMAX) ; функция определения вида размерных линий 


(COMMAND. "ОМТТ5" "2" "0" "1" "1" "0" "N") —; система единиц 
(ЗЕТУАВ "ОТМТАО" })- ; текст над размерной линией 
(ЗЕТУАВ "DIMSOXD"” 1) ; текст между выносными линиями 
(ЗЕТУАВ "ОТМТТН" 0) ; текст расположен параллельно линии 
(ЗЕТУАВ "РТМОГТ" (* ВМАХ 0.25)) ; отступ между линиями j 
(SETVAR "DIMEXE" (* RMAX 0.05)) ; увеличение размерных линий 
(ЗЕТУАВ "DIMTSZ" 0) ; изображение стрелки на 
; концах размерной линии 


(ЗЕТУАК "DIMASZ" (* ВМАХ 0.15}) ; длина стрелки 
| | 
(DEFUN RAZMV () 
(SETDIM RMAX) ; вызов функции определения вида размерных линий 
(SETQ LT2T3 (REVERSE LT2T3 )) | 
(COMMAND TSTYDE" "" "COMPLEX" (* RMAX 0.15) "17 "S mwr nay 1m) 


(FOREACH EL LT2T3 ; цикл указания размеров диаметров ступеней 
_ (ЗЕТО Т2 {CAR EL) ; точка для проведения 1-й выносной линии 
T3 (CADR EL) ; точка для проведения 2-й выносной линии 


ТВ (LIST (- (CAR T2) 10) (CADR T2))) 
(COMMAND "DIM1" "VER" T2 ТЗ TR "$%с <>") 
) 
(SETQTR (LIST X (- Y (* RMAX 1.2))) 


I 0) 
(FOREACH EL LT2T3 ; цикл указания длины ступеней 
(SETQ T3 (CADR EL) ; точка проведения 2-й выносной линии 
LARL 
(IF (= I 1) 
(COMMAND "DIM" "HOR" BP ТЗ TR "") ; изображение размера 
(COMMAND "BAS" ТЗ ""))) ; 1-й ступени и последующих 


) 
(DEFUN STUP () 
(SETQ T10 (POLAR BT (/ PI 2) RO) 
T1 (POLAR ВТ (7 PI 2) R) 
T2 (POLAR T1 0 L) 
T3., (POLAR T2 (*.1.5 PI)ID) 
T4 (POLAR T3 PI L) 
T40 (POLAR ВТ (* 1.5 PI) КО) 
BT (POLAR ВТ 0 L)) 
(COMMAND "PLINE" T10 "W" 0.2 0.2 Т1 T2 T3 T4 T40 "") 

) 

(DEFUN MNOGOSTR (X Y`LD) ; начало создания функции 
(ТЕХТОСК) ; переход на текстовый экран 
(ЗЕТУАВ "СМОЕСНО"- 0 } 

(ЗЕТУАВ "BLIPMODE" 0) 
(COMMAND "LIMITS" "0,0" "200,120" "ZOOM" Sa) 
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А S Е ва вала О r 
(SETO КМАХ 0 LT2T3 '() 
R0 0 BT (LIST X Y) 
BP BT) 
(FOREACH EL LD 
(SETQD (CAR EL) 


; начало цикла создания ступени 
выделение из пары диаметра ступени 


L (CADR EL) ; выделение из пары длины ступени 
ВОО] 
(ТР (> R КМАХ) (SETQ ВМАХ R)) ; определение максимального 


‚ радиуса 


< 


(IF (< R ВО) {SETO RO R)) 


(STUP) ; вызов функции для создания 
; ступеней 
(SETO LTZT3 (CONS (LIST T2 T3} LT2T3) ; список пар точек 
RO R)) ; для изображения выносных линий 
RAZMV) ; вызов функции для указания 


; размеров чертежа 
(COMAND SLAYER "М "ОСТ" "L" "CENTER" "OSI" r5" "OSI" 
"= "ГТМЕ" ВР ВТ *") 
(PRINI) 
} 
(ММОСОСТВ 10 60 '((30 40) (40 50) (30 30) (15 40))) ; вызов функции 

Результатом выполнения функции (ММОСО$ТВ...) будет изображе- 
ние многоступенчатого объекта с указанием его размеров, аналогичное 
изображенному на рис. 3.8. 

Чтобы завершить оформление чертежа, необходимо вывести текстовые 
пояснения, которые сначала можно поместить в текстовый файл, а затем 
на чертеж. 

Нриведем функцию (ТЕХТИМТ), которая считывает информацию из 
текстового файла и помещает ее на чертеж в указанную точку. Обращение 
к текстовому файлу, местоположение информации производится в диало- 
говом режиме. 


3.3.5. Программа параметрического ввода текста 
из файла на чертеж 


. жхкхкхххххкхккккккхккхккхккккхкккккккхххкххХхХхХхХХхкККкУхХХхКККХКККХХХкКхкХх 
s 


; (TEXTIN1)- функция размещения текста из файла на чертеже 
$ ххккжхкххххххккккхккхкхкхкххккхкххххкхххкКкКххкКкКххХккххХХкХХХХКККХККкхХкхХХХ 
(DEFUN ТЕХТТМ1 (/ FN ВР ОЕ RL P U) 

(ЗЕТУАВ "CMDECHO" 0) ; отключение эха команд 

(СЕТУАВ "ВЬТРМОПЕ" 0) ; отключение изображения маркера 

(COMMAND “LIMITS” "0,0" "297,210" "200М" "А"} a 

(SETQ FN (GETSTRING "\п Введите имя файла с текстом : "} 
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ВР (СЕТРОТ№Т "\п Введите точку ввода текста: [можно мышкой] ") 
P (GETREAL "\п Введите высоту букв текста: ") 
U (GETREAL "\п Введите угол наклона текста: ")) 
(ТУРЕ ЕМ) | | 
(PRINT FN) r 
(SETQ OF (OPEN FN "r") 
H (/ P 4) 
RL (READ-LINE OF))} 
(COMMAND "СТУГЕ" ий nn рН ит пи nmm ив 
"ТЕХТ” ВР U RL) 
(WHILE (SETQ RL (READ-LINE OF))} 
(COMMAND "TEXT" "" RL)) 
(CLOSE OF) 


) 
(TEXTIN1) ; вызов функции (TEXTIN1) 


Функция (TEXTIN1) обеспечивает считывание заданного текстового 
файла построчно. Полное имя файла запоминается в локальной перемен- 
ной FN (File Мате - имя файла). В локальной переменной ВР (Base 
Point — базовая точка) запоминается начальная точка первой строки (за- 
писи) текста, в локальной переменной P - высота букв текста, в перемен- 
ной U - угол наклона текста. В локальной переменной OF запоминается 
полное имя файла, открытого для чтения "г" (read). В локальной перемен- 
ной RL запоминается считываемая строка текста. 

Функция (COMMAND...) выводит на чертеж первую строку, взятую H3 
текстового файла. Для вывода всех записей в текстовом файле использу- 
ется функция (\УНШЕ...). 

Выражение 

(SETQ RL (READ-LINE ОЕ) ) 

обеспечивает считывание очередной записи из открытого файла 
(TEXT.LSP) и ее сохранение в переменной RL для последующего вывода 
на чертеж с помощью команды ТЕХТ. 

Для вывода на чертеж текстовых данных (например, технических тре- 
бований из заранее подготовленного текстового файла) функцию 
(TEXTIN1) можно включить в функцию (ММОСО$ТО) или (ММОСО- 
STPM). Для этого необходимо в функции (ММОСО$ТО) или (ММОСО- 
STPM) перед последней круглой скобкой разместить функцию (ТЕХТ- 
ПМТ) с указанием полного имени, например: 

(LOAD "С: /ALISP/TEXTIN1" ) 
(TEXTIN1) 

Допустим, сверху в поле чертежа многоступенчатого оиита (см. 

рис. 3.7) вам предстоит ввести надпись: 
ГРАФИЧЕСКОЕ ИЗОБРАЖЕНИЕ МНОГОСТУПЕНЧАТОГО ОБЪЕКТА 


pG 


-aneo 
- s >a 
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Прежде всего необходимо создать текстовый файл с этой записью, напри- 
мер, файл TEXT.TXT в каталоге ALISP на диске С:. Пусть в этом же KaTa- 
логе находятся файлы MNOGOSTPM.LSP и ТЕХТИМ1.ТЗР. Затем в ko- 
мандной строке AutoCAD необходимо загрузить файл ММОСОЗТРМ.Г$Р 
в нем находится функция (ММОСОЗТРМ...), которую следует выполнить. 

Command: (LOAD "C:/ALISP/MNOGOSTPM") 
ANOGOSTPM 
Command: (MNOGOSTPM 10 60 '((30 40) (40 50) (30 30) (15 40))) 

На экране появится графическое изображение многоступенчатого 
объекта (см. рис. 3.7). Затем предстоит загрузить файл TEXTIN1.LSP, 
в нем находится функция (ТЕХТИМ1), которую необходимо выполнить. 

Command: (LOAD "C:/ALISP/TEXTIN1") 
TEXTIN1 
Command: (TEXTINI) 


В окне появятся следующие запросы: 


БВзегите имя файла с текстом : С:/АБТЗР/ТЕХТ. ТХТ 
Взедите точку взода текста: [можно мышкой] 15,100 
55ерите высоту букв текста 4 

З=елите угол наклона текста 0 


После этого в поле чертежа появится первая строчка из файла 
ТЕХТ.ТХТ, затем вторая. Начало текста находится в точке с координата- 
ми (15,100), с высотой букв 4 и наклоном текста 0 градусов. 


3.4. Создание параметрических изображений 
проекций конструкций 


Основные этапы автоматизации создания параметрического изображения 
проекций конструкции рассмотрим на примере ферм. 


3.4.1. Постановка задачи 


Требуется разработать алгоритм и программу для автоматизации создания 
параметрического изображения фронтальной проекции фермы с заданным 
числом секций — М, заданной длиной фермы - L и заданной высотой — H. 
Общий вид фронтальной проекции фермы представлен на рис. 3.10. Необ- 
ходимо предусмотреть возможность изменения всех параметров фермы: 
длины, высоты, числа секций, а также точки подвеса фермы. Следует раз- 
работать два варианта программы в диалоговом и пакетном режимах. 
В первом случае необходимая исходная информация запрашивается в про- 
цессе выполнения программы; во втором - вся исходная информация за- 
дается до выполнения программы в виде аргументов функции. | 


a 


MANNS 


Рис. 3.10. Общий вид фронтальной проекции фермы 


3.4.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 
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В ходе анализа общего вида проекции фермы (см. рис. 3.10) можно заме- 
тить, что конструкция прямоугольной секции до точки подвеса фермы — 
МС отличается от конструкции прямоугольной секции, расположенной 
после точки подвеса, наклоном раскоса. Это обстоятельство можно ис- 
пользовать для упрощения последовательности действий и программы. 

Конструкция фермы включает две угловые и остальные прямоуголытые 
секции. Для создания прямоугольных секций необходимо знать номер сек- 
ции подвеса фермы — МС, длину секции — LS, которая в данном случае рав- 
на [./М. Число прямоугольных секций (NS) на две меньше общего числа, 
то есть № = М - 2. Создание параметрического изображения проекции 
фермы необходимо начинать с базовой точки (точки начала прорисовки 
фермы - BTF), задавая ее координаты X и У. Будем считать, что все CEK- 
цни фермы имеют одинаковую длину. 


3.4.3. Разработка последовательности действий 
и программы параметрического изображения 
фронтальной проекции фермы 


Создание параметрического изображения фронтальной проекции фермы 
состоит из нескольких основных этапов. 

Создание начальной угловой секции. При диалоговом режиме работы не- 
обходимо предусмотреть ввод следующих данных: 

ХЕ - координата х базовой точки проекции фермы; 

УЕ — координата у базовой точки проекции фермы; 

L, H — длина и ширина фермы соответственно; 

М, МС - число секций в ферме и номер секции подвеса фермы соответ- 
ственно. 


sa 
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Для создания изображения начальной угловой секции требуется знание 
трех точек (см. рис. 3.11, а): базовой точки — BTF; верхней — T1 и нижней — 
T2. Стрелками на рис. 3.11 показаны схемы создания параметрического 
изображения угловой секции. 

Создание прямоугольных секций фермы. Для создания графического 
изображения каждой прямоугольной секции достаточно знать координа- 
ты четырех точек: T1, T2, ТЗ, ТА. При этом для создания графического 
изображения каждой последующей прямоугольной секции достаточно 
определить координаты только двух точек — ТЗ и ТА. Точки T1 и Т2 в Ho- 
вой строящейся секции совпадают с точками ТЗ и T4, определенными для 
предыдущей секции. Схемы создания графического изображения прямоу- 
гольных секций показаны на рис. 3.11, 6, в. 

Создание графического изображения секций следует проводить в цик- 
ле. Если секция расположена до точки подвеса фермы, прорисовка секции 
проводится по схеме рис. 3.11, 6; если прямоугольная секция находится 
после точки подвески, то она изображается по схеме рис. 3.11, в. 

Создание конечной угловой секиии. Для создания конечной угловой Cek- 
ции достаточно знать координаты только ТЗ — точки конца фермы; KOOP- 
динаты еще двух точек (Т1 и T2) можно взять из предыдущего цикла. 

Далее рассмотрим функции AutoLISP, которые следует использовать 
для создания графического изображения фронтальной проекции фермы. 

Ввод исходных данных в диалоговом режиме можно представить в та- 
ком виде: 


г) 
g 


(SETQ XF (GETREAL "\n Координата x базовой точки фермы XF 
YF (GETREAL "\п Координата у базовой точки фермы YF 
L (СЕТВЕАГ "\п Длина фермы L = ") 
№ (GETINT "\п Номер секции подвеса фермы NC = ") 
H (GETREAL "\п Высота фермы H = ") 
N (GETINT "\n Число секций в ферме М = ") 


T1 T1 T4 T4 T4 


T2 Ta T2 T3 
BTF „) Т2 6) в) 


Рис. 3.11. Угловые и прямоугольные секции фермы 


чая бык 
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Для создания начальной угловой секции определим базовую точку BTF, 
‘длину секции LS, точки T1, T2 и используем команду "PLINE"; 


(SETQ BTF (LIST ХР YF) 
LS (/ LN) 
T2 (POLAR BTF 0 LS) 
T1 (POLAR T2 (/ PI 2) H) 
ТО 
NS (- N2) 
) 
(COMMAND "PLINE" BTF "W" 0.2 0.2 T1 T2 "C") 

Создание прямоугольных секций выполним в цикле с использованием 
функции (КЕРЕАТ...). При создании каждой следующей прямоугольной 
секции необходимо проверить условие перехода через точку подвеса, так 
как при этом изменяется вид секции. В конце цикла переприсвоим коор- 
динаты последних двух точек последней изображенной секции двум точ- 
кам Т1 и T2, которые служат начальными точками для создания следую- 
щей прямоугольной секции. 

Эта часть программы будет выглядеть так: 

(ВЕРЕАТ № 

(SETQ ТЗ (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS) 
L (ES) 
(IF (< I NC) 
(COMMAND "PLINE" T1 "W" 0.20.2 T4 ТЗ T2 Т4 "") 
(СОММАМО “PLINE” T2 "М" 0.20.2 T TATI ТЗ "")) 
(SETO T2 T3 TATA) 
} 
Создание конечной угловой секции можно выполнить следующим об- 


разом: 
(SETQ ТМ (POLAR T2 0 15} } 
(COMMAND "PLINE" T4 "И" 0.20.2 ТМ T3 "") 
Ниже представлена функция для создания параметрического изображс- 
ния фронтальной проекции фермы (SFD...). 


3.4.4. Программа параметрического изображения 
фронтальной проекции фермы в диалоговом режиме 


ххххххххккххккхкккхххкКкхкКкКкКкккккккКкКхККхкКкКкХКкХХХХХККХКХККХХКККЖХКХХХ 


; (SFD) - функция создания параметрического изображения 


; фронтальной проекции фермы в диалоговом режиме 
ХКХХХКККАККККККИККККККККККККК КК КК КК КККККККККК КК КК ККККККККККХ 
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(DEFUN SFD () : 
(SETVAR "CMDECHO" 0) ; отключение эха команд редактора 


(SETVAR "BLIPMODE" 0) ; отключение изображения маркера 
(СОММАХО "LIMITS" "0,0" "297,210" "ZOOM" "А") 

(TEXTSCR) ; переход на текстовый экран 
PROMPT *"\п Введите основные параметры фермы: ")} 

(SETQ 


tl 
S 
ease? 


XF (GETREAL "\n Координата x базовой точки фермы XF 

УР (GETREAL "\п Координата у базовой точки фермы YF 

L (СЕТВЕАГ "\п Длина фермы L =") 

NC (GETINT "\n Номер секции подвеса фермы NC = ") 

H (СЕТВЕАГ "\п Высота фермы H = ") 

N (GETINT "\п Число секций в ферме N = ")) 

(SETO BTF (LIST ХЕ УЕ} ; определение базовой точки BTF 

LS (/ LN) ; определение длины секции LS 
T2 (POLAR BTF 0 LS) 
TA (POLAR T2 (7 PI 2) H) 


Ц 
я 
—ы 
° 


r0 
NS (-№2)) l 
(CŒMAND "PLINE" BTF "М" 0.2 0.2 T1 T2 "С") 
(REPEAT NS ; определение точек секции и создание 


) ; изображения фермы 
) 


(IF (< I NC) 
’“ (ССММАМО "РЫТМЕ” 71 "И" 0.20.2 T4 TO T2 74 *") 
(COPEN "PLINE" TAW 0.20.2 ТЗ та 1103") 
(SETO T2 23 ТЕТ) 
(SETQ TN (POLAR T2 0 LS)} 
(СОМЫЕМО "РТЛМЕ" TA "М" 0.20.2 ТМ T3 ""]) 
(SFD) ; вызов обункции 
Результат выполнения функции (SFD) 
В=едите основные параметры фермы: 
Хоордината х базовой точки фермы XF = 10 
Косрдината у базовой точки фермы YF = 130 
Длина фермы L = 160 
Есмер секции подвеса фермы NC = 6 
Высота фермы Н = 42.0 
Число секций в ферме М = 8 х 
Результатом выполнения функции (SFD) будет параметрическое изоб- 
ражение фермы (рис. 3.12). 
Для создания функции, обеспечивающей формирование параметричес- 
кого изображения аналогичной фермы, но в пакетном режиме, достаточно 
создать функцию с параметрами (SF ХЕ YFLHBN МС UF). 
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Рис. 3.12. Параметрическое изображение фермы, 
созданное при помощи функции [SFD] 


3.4.5. Программа параметрического изображения 
горизонтальной проекции фермы 


‚ ХХХ КККККККККККЖХХ КК ККХККККККХХ КК КкККХХХКККХКККХЖКХхХКкКк 


= 


ba] 


- 


‚ (SG XF YF L B N} - функция создания параметрического 
; изображения горизонтальной проекции фермы 


Аргументы функции: 


; ХЕ, УЕ - координаты базовой точки фермы по оси X,Y 
; .,В - длина, ширина фермы 


N - число секций в ферме (четное число секций/ 


o. ХХХхххххххххххкхххкхккхкххкхкккххкКкХхКкКХхКХккКХхКкКХхКкКкКкхХкКхКХхХХхКкКххХхКкКХхкКУХХхХХхХхХхХХхкХ 


(DEFUN SG (ХЕ УЕ L B N) ; начало создания функции 


} 


(ЗЕТУАК "СМОЕСНО" 0) ; отключение эха команд 
(ЗЕТУАК "ВЬТРМОШЕ" 0} ; отключение изображения маркера 
(ЗЕТО ВТС (LIST ХЕ YF) ; определение базовой точки 

LS (Z LN) | ; определение длины секции 

Т2 ВТС 


Т1 (POLAR T2 (/ PI 2) B)) 
(COMMAND "PLINE" Т2 "W" 0.20.2 TL "*) 
(REPEAT (/ N 2) 
(SETQ T3 (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS}) 
(COMMAND "PLINE" TL "W" 0.27 0-2 Tm TS T та") 
(SETQ T2 T3 T1 T4) 
(SETQ ТЗ (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS)) 
(COKMAMD "PLINE" Т2 "НХ 0.2 0:2 73 T4 TI T3 =“) 
(SETO T2 T3 та) } 


(SG 40 200 320 40.0 8) ‚ вызов Функции 


Результатом выполнения функции (SG...) будет параметрическое изоб- 


ражение фермы (рис. 3.13). 


>7тез 
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AN 


Рис. 3.13. Параметрическое изображение фермы, созданное при помощи функции [5С...} 


3.4.6. Программа параметрического изображения 
изометрии фермы 


Ниже приведена программа создания изометрии фермы. 


ъ-о wo ap 


хххххххххххххххкххххкххххкххххххккххкххххххкхххххххххххАххХххХххХхХхХхХхХХх 


(SE XF YF L H N NC UF) - функция изображения фронтальной 
поосекции фермы 
Асгументы функции: 


XF- ксорлината X базовой точки фермы 
YF- координата у базовой Точки фермы 
L - длина фермы 

E - зысота Феомы 

В - ширина фермы 

№ - число секций в ферме 


№С- номер секции подзеса фермы 


UF- угол наклона фронтальной проекции 
ххх КХХКХХКХХККХХхХХХ 


(DEFUN SF (ХЕ YF LH BNNC UF) 


SETO BTF (LIST XF YF) 
LS (/ LN) 
T2 (POLAR BTF 0 LS) 
T1 (POLAR T2 UF H) 
T T1 
то 
№ (=N 2)) 
(COMMAND "PLINE” T2 "W" 0.2 0.2 BTF T1 "С") 
(REPEAT NS 
(SETO T3 (POLAR T2 0 LS) 
TA (POLAR T1 0 LS) 
Pr) 
(IF (< I NC) 
(COMMAND "PLINE” Т1 "W" 0.2 0.2 T4 ТЗ T2 T4 "") 
(COMMAND "РЬТМЕ” T2 "W" 0.2 0.2 ТЗ ТА T1 Tae $) 


) 
(SETQ T2 T3 T1 T4) 


) р 
(SETQ ТМ (POLAR T2 0 15) ) 


(COMMAND "PLINE" T4 "М" 0.20.2 TN T3 "") 


) 
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ХХХ КАКАКККККХ КАК К КК ККККККХ ХХ КККХХККККХХЖкККК 


SG-- функция создания параметрического изображения 
нижнего пояса фермы с наклоном 
; В - ширина нижнего пояса фермы 
; UG - угол наклона нижнего пояса . 
г АКК кхХххХ 
(DEFUN SG (XF YF L.H B N NC UG) 
(SETQ BTG (LIST XF YF) LS (/ L N) T2 BTG 
T1 (POLAR T2 UG B) TN T1) 
(COMMAND "PLINE" T2 "W" 0.2 0.2 T1 "") 
(REPEAT (/ N 2) 
(SETQ T3 (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS) 


ea 


-s 


) 
(COMMAND "PLINE" T1 "И" 0.2 0.2 T4 T3 T2 T4 "") 
(SETQ T2 ТЗ T1 T4) 
(ЗЕТО ТЗ (POLAR T2 0 LS) 
T4 (POLAR T1 0 15) } 
(COMMAND "PLINE" T2 "И" 0.2 0.2 T3 T4 T1 T3 =") 
(SETQ T2 ТЗ T1 T4)) 


kkóikýákřkářákřkkřkiřiikikkiiřiáká*ýóiřikkkkikikkkřžkřk*žkřžážátżůáýkřkřkřkkřkkěžkkikřáěikáěikáěžkžkřžkikkřkáěýóři*óáěáýói*žk**ák 


; SI - функция создания параметрического изображения 
изометрии фермы 
: ххххххххкхкххАххкххАххКхАХхХххкКххХхХххХхххХххХххХкКхкххХХхКхХхкхХКкКХхкХкХКхХкхХххХхХхХхкКхХкхкХх 
(DEFUN SI (XF YF L H BN NC ÚF UG) 
(SETVAR "СМРЕСНО" 0) 
(ЗЕТУАК "BLIPMODE" 0) 
(COMMAND "LIMITS" "0,0" "400,300" "ZOOM" "А") 
(SF XF YF LH BNNCUPF) ; вызов функции 
(SG XF YF L H B NNC UG) ; вызов Функции 
(REPEAT (- М1) 
(SETQ TV1 (POLAR ТУ 0 LS) 
TN1 (POLAR TN 0 LS) 


b - 5 


) 
(COMMAND "PLINE" TN "W" 0.2 0.2 TV TN1 "") 
(SETO ТУ ТУ1 
ТМ TN1) 
) 
(SETQ ТМ (POLAR ТМ 0 LS) 
TV (POLAR ТУ РТ LS) 
) : 
(COMMAND "PLINE" TV "W" 0.2 0.2 TN "") 
№4 
(SI 40 200 320 62.040841.20.5} ; вызов функции 
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Результатом выполнения функции ($...) будет параметрическое изоб- 
ражение изометрии фермы (рис. 3.14). 


ОА 


Рис. 3.14. Парометрическое изображение фермы, созданное при помощи функции (У...) 


3.5. Создание параметрического изображения 
общего вида объекта 


Многие объекты отличаются друг от друга размерами тех или иных эле- 
ментов, узлов и т. д., которые можно описать параметрически. 


3.5.1. Постановка задачи 


Требуется разработать алгоритм параметрического трехмерного изображе- 
ния общего вида коттеджа с прорисовкой окон, дверей и даже форточки 
и создать функцию для параметрического изображения коттеджа 
(КОТТЕО] SO KR (ХУ UX), в которой: 

SO — слисок координат точек и размеров элементов коттеджа вида: 

(( X1 Y1 Zi L1 ВЕ H1) (X2 Y2 Z2 L2 B2 H2)...), где 

X1, Y1, Zi — координаты базовой точки коттеджа; 

L1, B1, H1 - размеры коттеджа (длина, ширина, высота); 

X ,Y ,Z_ - координаты базовых точек элементов коттеджа (окон, MBE- 
рей, форточек); 

[._В Н - размеры элементов коттеджа (окон, дверей, форточек): их 
длина, ширина и высота соответственно; 

КК - высота крыши; 

UXY, ОХ - углы направления взгляда на коттедж относительно плоско- 


сти ХУ H OCH X. 


3.5.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 
Сделаем эскизную прорисовку общего вида коттеджа (рис. 3.15). 


- Для параметрического изображения коттеджа используем трехмерные 
элементарные команды AutoCAD.- параллелепипед "BOX" и клин 
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"WEDGE". Параллелепипед "BOX" нам потребуется для изображения ca- 
мого коттеджа, окон, дверей и форточек, а клин "\УЕРСЕ” - для изобра- 
жения крыши коттеджа. 

В команде построения параллелепипеда "ВОХ" присутствуют следующие 
аргументы: базовая точка — ВТ признак ввода размеров параллелепипеда — 
"L"; длина, ширина и высота параллелепипеда — соответственно LO, ВО, НО. 


3.5.3. Разработка последовательности действий 

и программы параметрического изображения коттеджа 
Полное описание коттеджа зададим в виде списка SO. Он включает все 
элементы коттеджа в виде списка EL вида '(ХО YO ZO LO ВО НО). Чтобы 


использовать информацию для создания графического изображения эле- 
мента, ее необходимо предварительно извлечь из списка EL: 


(SETQ ХО (NTH 0 EL) ; координата X базовой точки элемента 
YO (NTH 1 EL) ; координата у базовой точки элемента 
ZO (NTH 2 EL) ; координата 2 базовой точки элемента 
LO (NTH 3 EL) ; длина элемента 
ВО (NTH 4 EL) ; ширина элемента 
НО (NTH 5 EL) ‚ высота элемента 
EFL N 


) 
(COMMAND "BOX" (LIST XO YO 20) "L" LO ВО HO) 

Для создания графического изображения крыши используем команду 
"WEDGE" со следующими аргументами: базовая точка — BT; признак BBO- 
да размеров клина — "Г"; длина, ширина и высота клина — соответственно 
LO, ВО, КК. Для определения базовой точки крыши необходимо исполь- 
зовать координаты базовой точки коттеджа и его размеры: 

FIN 
( PROGN 
(SETQ LO2 (/ LO 2)) 
( COMMAND 
"WEDGE" (LITST (+ ХО 102) YO HO) “L” (- 0 102} ВО КВ 
"WEDGE" (LIST (+ ХО LO2) YO НО} "L" 102 ВО KR) ) 
) 

В трехмерном пространстве выберем «точку зрения», то есть местопо- 
ложение глаза наблюдателя относительно просматриваемого объекта 
(в нашем случае коттеджа). AutoCAD позволяет взглянуть на объект из 
любой точки пространства (даже изнутри изображаемого объекта). Линию 
от «точки зрения» до объекта часто называют линией взгляда или направ- 
лением взгляда. 
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Нолучить динамические трехмерные и перспективные виды можно с по- 
мощью команды "DVIEW", в которой используется аналогия с камерой, 
направленной в сторону объекта. В качестве аргументов могут выступать: 
точка объекта, которая выбрана для просмотра, — ТО; признак просмотра 
камерой — “СА”; углы между направлением взгляда и плоскостью ХУ 
и угол между линией взгляда и осью X — соответственно (ХУ UX: 


(COMMAND "DVIEW" (LIST ХО YO) "" "СА" UXY UX "") 


Угол UX изменяется в пределах от 180° до —180° — значение со знаком 
минус обозначает отсчет угла по часовой стрелке, со знаком плюс — IpO- 
тив часовой стрелки. 

Угол UXY изменяется в пределах от 90° до —90° — значение со знаком 
минус обозначает отсчет угла вниз от плоскости ХУ, со знаком плюс - 
вверх. | 

Используем направление взгляда вдоль линии, лежащей под углом 
UXY = 40°к плоскости ХУ, проекция которой на плоскость ХУ находится 
под углом UX = —140° относительно оси X. 


Рис. 3.16. Параметрическое изображение 
‚ коттеджа, созданное при помощи функции 


Рис. 3.15. Эскиз общего вида коттеджа [KOTTEDJ...) 
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3. 


5.4. Программа параметрического изображения 


коттеджа 


‚ ХЖЖХККЖАККХККХХККХХККККХКККХКККХККХККХ КК КХ ,¿ 
f . 


e 


a w o 


(KOTTEDJ SO KR UXY UX) - функция создания 
параметрического изображения коттеджа 


‚Аргументы функции: 


50 - список базовых точек и размеров элементов коттеджа 
(LIST (LIST X1 Y1 Z1 L1 B1 H1) (LIST X2 Y2 2211.2 B2 H2)..) 


; X1, Y1, 21 - координаты базовой точки коттеджа 
‚ L1, B1, H1 - размеры коттеджа (длина, ширина, высота) 
ХХ 


_, Y_, 2_ - координаты базовых точек элементов коттеджа 
L_ B_ H_ - размеры элементов коттеджа (длина, ширина, высота) 


; KR - высота крыши 


ОХУ, ОХ - углы взгляда на коттедж с плоскостью ХУ и C осью X 
Пример вызова функции (KOTTEDJ SO KR UXY UX) 

(KOTTEDJ (LIST (LIST 20 20 0 50 30 40) {LIST 30 20 13 10 3 13) 
(LIST 60 20 13 10313) (LIST 55 30 USF =3 26) 60 30-180) 


хххххххкхккххкххххххххккххкххкккхххххкхкКххЖхкхХхХККхХКкКкКХХКкХхХККХКХХХкКХкКкХХхКкХ 


(DEFUN KOTTEDJ (SO КВ UXY UX) 


} 


(COMMAND "LIMITS" "0,0" "300,400" "ZOOM" "А") 
(SETQ I 0) 
(FOREACH EL 50 
(SETQ XO (NTH 0 EL) 
YO (NTH 1 EL) 
ZO (NTH 2 EL) 
LO (NTH 3 EL) 
BO (NTH 4 EL) 
HO (NTH 5 EL) 
I чи 
(COMMAND "BOX" (LIST ХО YO 20) "L" LO ВО HO) 
(IF (= I 1) (PROGN (SETQ 102 (/ LO 2)) 
(COMMAND 
“WEDGE {BIST (+ ХО LO2) YO HO) "E" (~ 0 602) BO'RR 
"WEDGE" (LIST (+ ХО LO2) YO HO) "L" [02 BO KR 
OVIEW" (LIST XO YO) =T “CAT UKT UX =) 


) 


(KOTTEDJ (LIST (LIST 20 20 0 50 30 40) 


(CIST 20 20.13 10 3.13) 
(CIST 906201: 10 F I3) 
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(LIST 20 30 13 3 10 13) 
(LIST 55 500 12 -3 28) 
(EISS 40 50750 11-310) 
(LIST 50 20 20636)) 60 40 -140) 
Результатом выполнения функции (КОТТЕО)...) будет параметричес- 
кое изображение коттеджа (рис. 3.16). 


3.6. Создание параметрического изображения 
общего вида машины 


3.6.1. Постановка задачи 


Требуется разработать функции на языке AutoLISP для формирования na- 
раметрического изображения основных узлов экскаватора и всего экска- 
ватора в целом (как в дналоговом, так и пакетном режимах), допуская из- 
менение основных параметров узлов. 


3.6.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Выделим основные узлы экскаватора: ходовое устройство (ходовая часть, 
поворотная платформа); рабочее оборудование. На поворотной платфор- 
ме должен быть оборудован привод — силовая установка, кабина и paĝo- 
чее оборудование. В рабочем оборудовании необходимо выделить стрелу, 
рукоять и ковш, которые могут иметь различное конструктивное испол- 
нение. Ограничимся рассмотрением гидравлического одноковшового экс- 
каватора. Предусмотреть возможность прорисовки гидроцилиндров для 
наклона стрелы, рукояти и поворота ковша, атакже возможность различ- 
ного положения рабочего оборудования экскаватора. 


3.6.3. Разработка последовательности действий 
и программы параметрического изображения 
основных узлов машины 


Создание параметрического изображения общего вида машины включает 


следующие этапы: 
- © параметрическое представление основных узлов машины; 
. выделение для каждого узла базовых точек (для самого узла, а также 


для узлов, связанных с ним); 


НН 


3. 
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° введение возможности конструктивного изменения отдельных узлов 
за счет изменения того или иного параметра, например, угла перелома 
в стреле экскаватора. 

Начнем разработку функции с ходовой части экскаватора (рис. 3.17). 


T2 BP T3 


Рис. 3.17. Параметрическое предстовление ходовой части 


6.4. Программа параметрического изображения 


ходовой части экскаватора 


e 
; 


# 


хххккхкхкхкххкхкхккккккххккккхххкккххххкхккхкххкхХкххкхкхХхххкхкхххХкКкхккКхХхХххХхХх 


‚ (GUSHOD XH YH LH НН ХР УР) - функция создания 


параметрического изображения гусеничного хода 
Аргументы функции: 

XH - координата X базовой точки гусеничного хода 

УН - координата у базовой точки гусеничного хода 

LH - размер базы гусеничного хода 

НН - высота гусеничного хода 

ХР - координата х базовой точки поворотной платформы 


; УР - координата у базовой точки поворотной платформы 


хххххххккккхкккккххккхкккхккхкккхххкхххкхкххкхккКхкхкхкхкххЖжкКкККкККкУкККЖХхХКкКк 


DEFUN GUSH (XH YH CH НН ХР УР) 
(SETQ BT (LIST XH YH) 
BP (LIST (+ XH XP) (+ YH YP HH)) 
T1 (POLAR BT PI (/ LH 2}) 
T2 (POLAR T1 (/ PI 2) HH) 
T3 (POLAR T2 0 LH) 
T4 (POLAR T1 0 LH) 
j š 
(SETO Т12 (POLAR 71 (/ PI 2) (7 HH 2))} 
T34 (POLAR T4 (/ PI 2) (/НН2}) 
) 
(COMMAND 
"DPLINEA-TA 20 10. LTI ARCU То "LINES TI SARC pT F! 
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"CIRCLE" T12 (- (/ HH 2) 5) 
"CIRCLE" T34 (- (/ HH 2) 5) 
) 
) 
(GUSH 120 10 200 30 0 10 } ; вызов функции 
(COMMAND "ZOOM" "А") 
Параметрическое изображение платформы экскаватора представлено 
на рис. 3.18. 


3.6.5. Программа параметрического изображения 
поворотной платформы экскаватора 


- ЖХХХХХХКККККККХХКККККХХКХКХКККХХХКХКККККККХХКККККХКХХКХКККККККХкКХхХкХкХ 


; (РОУРЬ LZ LP LD HD НР НК LK XS YS ХС1 УС1) - функция 

; создания параметрического‘ изображения говоротной 

; платформы экскаватора 

; Аргументы функции: 

; ХР - кооодината х базовой точки поворотной платформы 
; УР - координата у базовой точки поворотной платформы 


Рис. 3.18. Парометрическое изображение платформы экскаватора 
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. LZ - длина задней части платформы 

‚ ГР.- длина поворотной платформы 

; LD - длина двигательного отделения 

НО - высота задней части платформы 

‚ НР - высота передней части платформы 

; НК - высота кабины 

; LK - длина кабины 

‚ XS - координата x базовой точки пяты стрелы 

; YS - координата у базовой точки NATH стрелы | 
ХС] - координата x базовой точки крепления штока цилиндра стрелы 


УС1 - координата у базовой точки крепления штока цилиндра стрелы 
КККККХАКХККККККАКАККККККККККХККАККККККККККККККХКККККЖККККХКХККККК КК 


T | 


+ - e 


8 


(DEFUN POVPL (LZ LP LD НО НР НК LK XS YS ХС1 УС1) 
(SETQ TI (POLAR BP PI LZ) 
T2 (POLAR T1 (/ PI 2) HD) 
T3 (POLAR T2 0 LD) 
T4 (POLAR ТЗ (* 1.5 PI) (- HD НР)) 
T5 (POLAR Та 0 (-(- LP LD) 10)) 
Тб (POLAR BP 0 (- LP LZ)) 
T7 (POLAR T6 (/ PI 2) HK) 
T8 (POLAR T7 PI LK) 
T9 (POLAR T8 (* 1.5 PI) (- НК НР} } 
BS (POLAR ВР 0 XS) 
BS (POLAR BS (/ PI 2) YS) 
BC1 (POLAR ВР 0 ХС1) 
BC1 (POLAR BC1 (/ PI 2) YC1)) 
(COMMAND "PLINE" T6 "W" 0.1 0.1 Tl T2 T3 T4 T5 “Ся 
“PEINE” T6- W" M10. 1T TI 1) 
) 
(SETQ BP ' (120 30)) ; установка базовой точки платформы 
(POVPL 70 140 50 60 50 100 50 60 20 80 10) ; вызов функции 
(COMMAND "ZOOM" "А") 


Параметрическое изображение стрелы экскаватора дано Ha рис. 3.19. 


3.6.6. Программа параметрического изображения 
стрелы экскаватора 


; kkkkžýžřkřáářiřikáěýžkřikááíikkkáýkkkřikřkřikikkkřkřřáýikěkžřůóůóá*žkiěýikkřěřáěžkřkáikřkóti*žiřikkákřiřkěikřiěi*žkkkkkk 


°; (STRELA HS LHS LCS LCR HCR HSI1 LVS HSI? HSR LSI1 LSI2 
; 051 US) - функция создания параметрического изображения 
; стрелы экскаватора 
; Аргументы функции: 
‚; HS - ширина нижнего колена стрелы у опоры 
; LHS - длина нижнего колена стрелы 


ра 


i 
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US 


Рис. 3.19. Параметрическое изображение стрелы экскаватора 


LCS - расстояние от пяты стрелы до шарнира крепления 
цилиндра стрелы 


; LCR - расстояние от NATH до оси шарнира крепления 


пилиндра рукояти 


; ECR - расстояние. от оси нижнего колена стрелы до шарнира 


‚крепления гидроцилиндра рукояти 

ESIL - ширина нижнего колена стрелы у изгиба 

LVS - длина верхнего колена стрелы 

HSI2 - нирина верхней части стрелы у изгиба 

HSR - писина верхней части стрелы у рукояти 

[511 - длина изогнутой части нижнего колена стрелы 

LSI2 - длина изогнутой части верхнего колена стрелы 

051 - угол между верхней и нижней частями стрелы 

US - угол наклона нижней части стрелы 

ххххххххккккххххкхккхккххххккххкхкхххкхххкхххХххххххххххХхАКХХККККЖКХхХхХХХК 

DEFUN STRELA (HS LHS LCS LCR HCR HSI1 LVS HSI2 HSR LSI1 Ь$Т2 951 US) 

(SETQ BC (POLAR BS US LCS) | 

T1 (POLAR BS (+ US (/ PI 2)) (/ HS 2)) 
T8 (POLAR BS (+ US (* 1.5 РТ)) (/ HS 2)) 
BS1 (POLAR BS US LHS) 
T2 (POLAR BS1 (+ US (/ PI 2)) (/ Н511 2)) 
T7 (POLAR BS1 (+ US (* 1.5 PI)) (/ HSI1 2)) 
BS2 (POLAR BS1 0$ 1511) 
US2 (- (+ US US1) РТ) 
BS3 (POLAR BS2 US2.LSI2) 
T3: (POLAR BS3 (+ US2 (/ PI 2)) (/ HSI2 2)) 
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T6 (POLAR В53 (+ 052 (* 1.5 PI)) (/ HSI2 2)} , 
BSR (POLAR В$3 052 LVS) 
T4 (POLAR BSR (+ US2 (/ PI 2)) (/ HSR 2)) 
TS (POLAR BSR {+ US2 (* 1.5 PI)) (* 0.5 HSR}) 
| | 
(SETQ T9 (POLAR BS US LCR) 
BCR (POLAR T9 (+ US (/ PI 2}) HCR) 
) ~ 
(COMMAND -- "PLINE" T1 "W" 0.1 0.1 T2 "ARC" ТЗ "LINE" T4 
"АВС" T5 "LINE" T6 "АВС" T7 "LINE" T8 "ARC" T1 "" 
'"CIRCLE" BS (* 0.2 HS) "CIRCLE" BSR (* 0.2 HSR) 


ео 


) 
) 


(SETQ BS '(30 30)) ; установка базовой точки стрелы 

(STRELA 15 100 110 1305 30 100 30 10 10 10 2.5 0.6) ; вызов функции 

(COMMAND "ZOOM" "А") 

Параметрическое изображение рукояти экскаватора представлено на 
рис. 3.20. 


Рис. 3.20. Пораметрическое изображение рукояти экскаватора 


3.6.7. Программа параметрического изображения 
рукояти экскаватора 


; kkkřžřikřžkřk*žkřkkkřkkýžžikřiiikikěkkkkikikikkkkýřkkkěkkěkžkěkkřkkřkákřřižěžkřkkkkikřžkkěžkěkkkkk*žáókkėżk*żė 
; (RUKO LR HRS HRK USR HHR LRG URG HRG 0$2 LRC URC ) - 

; функция создания параметрического изображения рукояти 
эскаватора 

;‚ Аргументы функции: 

; LR - длина рукояти 

; HRS - ширина рукояти у стрелы 

; ERK - ширина рукояти у ковша 
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USR - угол между стрелой и рукоятью 
HHR - расстояние от шарнира до низа 
LRG - расстояние до крепления штока 
URG - угол крепления штока гидроцилиндра 
ERG - ширина рукояти в месте крепления штока 
US2 - угол накпона рукояти к стреле 
LRC - расстояние от шарнира до крепления гидроцилиндра ковша 
URC - угол крепления гидроцилиндра ковша 
хака кк ххххкахххаххакккхххАхххАхххххаях 
(DEFUN КОКО (LR HRS НВК USR HHR LRG ОВС HRG 0$2 LRC URC) 
(SETQUR (+ US2 PI USR) 
BRK (POLAR BSR UR LR) 
T1 (POLAR BSR (- UR (/ PI 2)) HHR) 
T4 (POLAR BSR (- UR (* 1.5 PI)) (- HRS HHR)) 
BC1 (POLAR BSR (- URG (- (* 2.0 PI) UR)) LRG) 
T2 (POLAR ВС1 (- URG (- (* 1.5 PI) UR)) (/ HRG 2) } 
T3 (POLAR ВЕТ (- URG'{- (* 2.5 PE) UR))-(/ HRG 2)) 
TS (POLAR BREA UR (* 1.5 PIJ) {* 0.5 HRKI) 
T6 (POLAR BRK (- UR (*0.5РТ)) (* 0.5 HRK)) 
BC BCR 
LRCO LRC 
URCO URC) 
(COMMAND "PLINE" T3 FW" 0-1 0.1 TA T5 
ARC" Тб TLINEF TI T2 
TARET ое 
“CIRCLE” ВС1 (> 0.2 HRG) 
"CIRCLE" ВВК (F072 HRK) 
“CIRCLE” BSR (* 0.1 HRS) 


L) че w e 9 а © ет) %а ъо 


) 
) 
(SETQ BSR '(80 30)) ; установка базовой точки рукояти 
(RUKO 100 30 102.57 603.0 15 0.61 35 1.5) ; вызов функции 
(COMMAND "ZOOM" "А") 
Параметрическое изображение ковша представлено на рис. 3.21. 


3.6.8. Программа параметрического изображения 
ковша экскаватора 


> kikkktřkkkkkkkřkkkkkkkkkkřškžkkkkkkkkkkkkkkkkkřkkkkěkkěkkěkkěkkkkkkkkkkkkkkk 
d 


; (KOV LK URK HK LZU HZ HG ВК) - Функция создания 
; параметрического изображения ковша | 

; Аргументы функции: 

; LK - длина ковша по оси X 
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BC1 | 
я. RK 
= х 
IT 
[| frz 
K erk | 7 a 


URK LK 


® < 


Рис. 3.21. Пороаметрическое изображение ковша 


URK - угол между рукоятью и ковшом 
НК - высота ковша 
70 - длина зуба 
‚ НА - ширина основания зуба 
; НС - расстояние от крепления ковша до цилиндра 
. RK - расстояние от крепления ковша до линии Т1-Т2 
- хххххххххххххххххххххххххххххххххххххххкхххххххххххххххххХххххххАхХххХХхХ 
(DEFUN KOV (ГК ОВК НК 170 HZ HG ВК} 
(ЗЕТО ОК (- {+ UR ОВК) РТ) 
Т1 (POLAR ВВК UK RK) 
TZ (POLAR BRK UK LK) 
TZ1 (POLAR TZ (- UK (/ PI 2)) LZU) 
T22 (POLAR BRK UK (- LK HZ)) 
TC1 (POLAR T1 (- UK (* 1.5 PI)) HG) 
BCL TCL 
BC (POLAR BSR (+ UK 0ВС0) LRCO0) 


T » We 


™ p 


) 
(COMMAND 
"РЕТМЕ" TI "И" 0.10.1 TCI "АВС" TZ "LINE" T21 T22 BRK "") 
) 
(SETQ UR0.0 
URCO 30 
BSR ' (80 30) z 
LRCO0 1.5 
BRK '(20 40)) 
(KOV 50 3.0 40 10 3 10 5) 
(COMMAND "ZOOM" "А") 
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LC 
EF | T4 LKC1 


T61 
R É 
Iy 
T71 
Рис. 3.22. Параметрическое изображение гидроцилиндра 


Параметрическое изображение гидроцилиндра представлено на рис. 3.22. 


3.6.9. Программа параметрического изображения 
гидроцилиндра 


ххх кххххххххкххххххххххххххххххххххХхХх 
s 


; (GCL LC LKC DC DC1 LKC1) - функция создания 
; параметрического изображения гидроцилиндра 
; Аргументы функции: 
; ВС - точка крепления гидроцилиндра 
; BCl - точка крепления штока гидроцилиндра 
; LC - gma гидропилиндра 
; ГКС - длина крепления цилиндра 
7 DC - диаметр гидроцилиндра 
; DC1 - диаметр штока цилиндра 
LKC1 - длина крепления штока 
ххх КХххХХхАХХХХКХХХхХХХ 
(DEFUN GCL (LC LKC DC DC1 1КС1) 
(SETQ UC (ANGLE BC BC1) 
PI05 (* PI 0.5) 
TC (POLAR BC UC LKC) 
T1 (POLAR TC (= UC (* 1.5 PI)) (/ DC 2)) 
T11 (POLAR T1 (+ UC PI) LKC) 
T2 (POLAR T1 UC LC) | 
T4 (POLAR ТС (- UC 2105) (/ DC 2)) 
T41 (POLAR T4 (+ UC PI) LKC) 
T3 (POLAR T4 UC LC) 
TCL (POLAR TC UC LC) 
T5 (POLAR TCL (- UC (* 1.5 PI)) (/ DC1 2)) 
T8 (POLAR TCL (- UC PI05) (/ DC1 2)} 
LC1 (- (DISTANCE BC BC1) LKC LC 1КС1) 
T6 (POLAR T5 UC LC1) 


ь ъу 
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T61 (POLAR T6 UC LKC1) 
T7 (POLAR T8 UC LC1) 
T71 (POLAR T7 UC LKC1) 
) 
(COMMAND 
"PLINE" T1 "W" 0.1 0.1 T2 T3 T4 T1 T11 "АВС" T41 "LINE" T4 "” 
"PLINE" Тб "И" 0.1 0.1 T5 T8 T7 T6 T61 "ARC" T71 "LINE" T7 "" 
"CIRCLE" BC (* LKC 0.5) "CIRCLE" BC1 {* LKC1 0.5)) 
) 


(SETQ BC ' (30 30) ; точка крепления гидроцилиндра 
BCI ' (139.30) ; и штока гидроцилиндра 
(GCL 50 5 20 10 3) ; вызов функции 


(COMMAND "ZOOM" "А"} 


Координаты точек ВС и BC1 определяются до вызова функции созда- 
ния параметрического изображения гидроцилиндра. 


3.6.10. Программа параметрического изображения 
общего вида экскаватора 


ххххххххххххххххххххххххххххххххххххххххкхххххххххххххххжхххХххххХхХххХх 


; Комплекс функций для создания параметрического изображения 
; общего вида одноковшового гидравлического экскаватора 


; (GCL...) - функция параметрического изображения гидроцилиндра 
; (KOV...) - функция параметрического изображения ковша 

; (КОКО...) - функция параметрического изображения 

; рукояти экскаватора 

: (STRELA...) - функция параметрического изображения 

; стрелы экскаватора 

; (GUSH...) - функция параметрического изображения 

; гусеничного хода 

; (РОУРГ..) - функция параметрического изображения 


; поворотной платформы 
‚ ХХХ ХКАХХАХКАХ ХХХ ХАКХХХХХАХХХХХХХХХХХХХХХХХХХхХХХхХХХХхХхХеЕХХХ 
(DEFUN ECSAG () 
(SETVAR "CMDECHO" 0) 
(SETVAR "BLIPMODE" 0) 
(GUSH 120 10 200 30010). 
(POVPL 100 180 50 60 50 100 50 60 20 80 10) 
(STRELAl 15 100 110 130 5 25 100 25 10 10 10 2.5 1.2) 
(GCL 50 5 10 53) 
(RUKO'100 30 102.5 7 60 3.0 15 0.41 35 1.5 ) 
(GCL 50 5 10 5 3) 
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(KOV 50 2.4 40 10 3 10 5) 
(GCL 50 5 10 5 3) 
(COMAND "ZOOM" "E") 
(PRIN1) 
) 
(ECSAC) ; вызов Функции 
После вызова функции (ЕСЗАС) на экране появится параметрическое 
изображение общего вида гидравлического экскаватора (рис. 3.23). 


Рис. 3.23. Результат выполнения функции (ЕСЗАС] 
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В этой главе рассматриваются процес- 
сы создания систем обработки инфор- 
мации, представленной в виде символов 
ичисел, в том числеаналитических npe- 
образований алгебраических выраже- 
ний. Здесь же говорится об обработке 
статистических данных и их графичес- 
ком изображении, создании простейших 
баз данных и др. 
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4.1. Преобразование алгебраических 
выражений 


Рассмотрим основные этапы создания системы преобразования алгебраи- 
ческих выражений. Напомним, что алгебраическое выражение — это выра- 
жение, составленное из букв (символов) и чисел, соединенных знаками 
действий сложения, вычитания, умножения, деления, возведения в целую 
степень и извлечения корня (показатели степени и корня должны быть 
постоянными числами). Если некоторые из букв (или все) считать пере- 
менными, то алгебраическое выражение есть алгебраическая функция. 
Ограничимся исследованием алгебраического выражения с одной пере- 
менной и алгебраической функции с одной переменной. 


4.1.1. Постановка задачи 


Разработать фрагменты системы для автоматизации обработки алгебран- 
ческих выражений, представленных в виде символов и чисел. Исходные 
и конечные выражения должны быть представлены в обычном для пользо- 
вателя виде (в инфиксной форме). В процессе вычислений необходимо пре- 
дусмотреть упрощение алгебраических выражений, использование в алгеб- 
раических выражениях, кроме операций сложения, вычитания, умножения 
ин деления, операций возведения в целую степень и дифференцирования. 

Необходимо обеспечить возможность ввода нескольких исходных ана- 
литических выражений в одной строке. 


4.1.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Будем считать, что все составляющие алгебраических выражений отделя- 
ются друг от друга пробелом. Разработаем функцию аналитических пре- 
образований (ANALITIC), которая будет считывать исходные алгебраи- 
ческие выражения из файла, например, ANALITIC.DAN. Результаты 
вычисления и преобразования алгебраических выражений должны выво- 
диться в файл, например ANALITIC.REZ. В качестве знака операции во3- 
ведения в степень будем использовать знак ^, операцию дифференцирова- 
ния обозначим символом О, операцию присваивания - знаком =. Отделять 
аналитические выражения будем с помощью знака : (двоеточия). 

Установим следующий порядок выполнения действий над аналити- 
ческими выражениями: / * — +=: D. 

Для упрощения программы будем использовать бинарные операции, 
то есть операции с двумя аргументами. В таком случае отрицательное зна” 
чение символа, например, —5 следует записывать в виде 0-5. 
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4.1.3. Разработка алгоритмов и комплекса функций 
для преобразования аналитических выражений 


Рассмотрим вначале алгоритм преобразования алгебраических выраже- 
ний из инфиксной формы в префиксную. Алгебраические выражения за- 
писываются, как правило, в инфиксной форме, например: 

дэ ВВ 

Язык AutoLISP работает с выражениями в префиксной форме, то есть 
выражения имеют следующий вид: 

(*А (+8) ] 

Для преобразования используем промежуточный буфер - стек, в кото- 
ром сохраняется знак операции. Первоначально стек пустой (NIL) и выра- 
жения в префиксной форме — (NIL) не существует. Из выражения в HH- 
фиксной форме слева направо последовательно выбираем элементы 
выражения (символы, числа, знаки операций) и переносим в выражение 
в префиксной форме. При этом время от времени используем стек: 

если элемент — символ или число, его помещают прямо в список спра- 

ва (выражение в префиксной форме); 

 ссли элемент - знак операции, его помещают или в список справа (вы- 

ражение в префиксной форме) или в стек: 

e если приоритет перемещаемого знака операции выше приоритета 
знака операции, находящегося в верхней ячейке стека, знак операции 
перемещается в стек; 

° если приоритет перемещаемого знака операции ниже или равен при- 
оритету знака операции, находящегося в верхней ячейке стека, пре- 
фиксная форма формнруется следующим образом: первым элемен- 
том списка становится первый элемент стека, затем второй и первый 
элементы списка в префиксной форме, вслед за ними остальные эле- 
менты. 

если выражение пусто, а стек не пустой, префиксная форма Формиру- 

ется так: первым элементом списка становится первый элемент стека, 

затем второй и первый элементы списка справа (выражение в пре- 
фиксной форме), затем остальные элементы. 

В стеке накапливаются знаки операций, начиная с наиболее низких при- 
оритетов и кончая высшими. 

После того как все символы и числа будут перенесены в список справа 
(выражение в префиксной форме), начнем последовательный перенос зна- 
ков операций из стека. При этом знаки операций будем извлекать из стека 
по принципу «последний пришел, первый вышел». 

Для определения приоритета операций создадим функцию (ОТО...). 


6* 
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(SETQ ZNAK '(/*-+=:0)) ; приоритет операций 

(DEFUN OLD (0Р1 0Р2) ; определение приоритета операций ` 
(OR (NULL OP2) (MEMBER ОР2 (MEMBER ОР1 7МАК))} 

) 


Разработаем функцию (INFPREE..) преобразования аналитического 
выражения S из инфиксной формы в префиксную SP, используя проме- 
жуточный буфер — стек ST. 


(DEFUN ТМЕРВЕЕ (SP ST $5) 
(COND 
( (NULL S) (IF (CAR ST) (PR SP ST S) (CAR SP))) 
( (ATOM S) S) 
( (ATOM (CAR S)) 
(COND 
( (NOT (MEMBER (CAR S) ZNAK)) 
(INFPREF (CONS (CAR S) SP) ST (CDR $)}} 
( (OLD (CAR S} (CAR ST)) 
(INFPREF SP (CONS (CAR S) ST) (CDR $))) 
(T (PR SP ST §))) 
) 
(T (INFPREF (CONS (INFPREF NIL '(NIL) (CAR S)) SP) ST (CDR $)))} 


UN CROLL Y 
INPPR REF (CONS (LIST (САБ ST) (CADR SP) (CAR SP)) 
(CDDR SP)}) (CDR ST) 5) 


Далее разработаем функции для выполнения основных операций с вы- 
ражениями, представленными в виде символов и чисел. Используя рекур- 
рентную формулу X" = X * X™i, определим правила возведения выраже- 
ния в целое число раз: 

(DEFUN ^ (ХУ) ; функция возведения Х в целое число раз 
(COND (150% 01 
Мы, 


Правила сложения выражений, представленных в виде символов и чисел: 

e если X — число и оно равно нулю, то сумма X и У равна У; 

e если У — число и оно равно нулю, то сумма X и У равна X; 

e если Хи У - числа, то их сумма равна (+ X У); 

e если Хи У - списки, то необходимо провести вычисление их, а затем 
сформировать обращение к функции сложения; 

если X - список, то необходимо провести вычисление его, а затем 


сформировать обращение к функции сложения; 


e д EE 
a a 
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e если У — список, то необходимо провести вычисление его, а затем i 
сформировать обращение к функции сложения; 
° если все вышеперечисленные условия не выполняются, следует chop- 
мировать обращение к функции сложения. 
Соответствующая функция сложения выражений, представленных 
в виде символов и чисел, будет выглядеть следующим образом: 


(DEFUN U+ (ХУ) 

(COND ( (AND (NUMBERP X) (7ЕВОРХ)) Y) 
( (AND (NUMBERP У) (ZEROP Y)) X) 
( (AND (NUMBERP X) (NUMBERP Y)) (+ХУ)) 
( (AND (LISTP Х} (LISTP Y)) | 

(LIST '+ (EVALS X) (EVALS У))) 

( (LISTP X) (LIST '+ (EVALS X) Y)) 
( (LISTP Y) {LIST '+ X (EVALS У))) 
(T (LIST '+ X Y)) 


ФС 


Правила вычитания выражений, представленных в виде символов 
H чисел: 
° если X и У равны, то результатом вычитания будет 0; 
если У — число и оно равно нулю, то результат будет равен X; 
° если Хи У - числа, то их разность равна (- X У); 
° если X и У - списки, то необходимо провести вычисление их, а затем 
сформировать обращение к функции вычитания; 
если X — список, то необходимо провести вычисление его, а затем 
сформировать обращение к функции вычитания; 
‚если У — список, то необходимо провести вычисление его, а затем 
сформировать обращение к функции вычитания; 
° если все вышеперечисленные условия пе выполняются, следует Chop- 
мировать обращение к функции вычитания. 
Соответствующая фуикция вычитания выражений, представленных 
в виде символов и чисел, будет выглядеть следуюнцим образом: 
; функция вычитания символьных выражений 
(DEFUN U- (ХУ) 
(COND ((EQUAL ХУ ) 0) 
( (AND (NUMBERP Y) (ZEROP Y)) X) 
( (AND (NUMBERP X) (NUMBERP Y}) (- X Y)) 
( (AND (LISTP X) (LISTP Y)) 
(LIST '- (EVALS X) (EVALS Y))) 
((LISTP X) (LIST '- (EVALS X) Y)) 
( (LISTP У) (LISH ' Х (EVALSIY))) 


166. Создание фрагментов систем обработки информации 


ЕСТ‘ —ХУ))) 


Правила умножения выражений, представленных в виде символов 
и чисел: 

e если Х равен 1, то результатом умножения будет У, 

° если Y равен 1, то результатом умножения будет X; 

® если Х или Y — число и оно равно нулю, то результат будет равен 0; 

e если Ñ и Y - числа, то результат равен (* X Y); 

e если Ñ и Y - списки и они равны, то сначала необходимо провести Bbl- 
числение Х, а затем сформировать обращение к функции возведения 
в степень; 

e если X и Y - списки, то необходимо провести вычисление X и У, а 3a- 
тем сформировать обращение к функции умножения; 

e если X — список, следует провести его вычисление, а затем сформиро- 
вать обращение к функции умножения; 

если У — список, то необходимо провести его вычисление, а затем 
сформировать обращение к функции умножения; 

e если X равен У, то необходимо сформировать обращение к Функции 
возведения в степень; 

e если все вышеперечисленные условия не выполняются, следует сфор- 
мировать обращение к функции умножения. 

Соответствующая функция умножения выражений, представленных 

в виде символов и чисел, будет выглядеть следующим образом: 
; Зункция умножения выражений, представленных в виде 
7 Ссямаолов и чисел 


МОМВЕВР X) (ZERO? X)) 
END (МОМВЕЕР У} (ZEROP Y))) 0) 
( (AND (NU! ap X) (NUMEERP Y)) (* X Y)) 
((ŁND (LISTP X) (LISTP Y) (EQUAL X Y)) 
pre '^ aS Х) 2}) 
((ЕМР (LISTP X) (LISTP У) ) 
(LIST '* (EVALS X) (EVALS Y))) 
( (LISTP X) (LIST '* (EVALS X) 1)) 
(LISTE У) (LIST '* X (EVALS Y) )) 
( (B002 X Y) (LIST "^X 2)) 
(T.(LIST ** X Y)) 


y, 
C) 
1) 
E р 
цы. 
z k 
4 
Z 
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Правила деления выражений, представленных в виде символов и чисел: 
e если X — число и оно равно 0, то результат деления равен 0; 
e если У — число и оно равно 0, то результат деления равен 'inf; 
e если У равен 1, то результатом деления будет X; 
° если X и У равны, то результат равен 1; 
° если X и У - числа, то результат равен (/ X У); 
° если Хи У — списки, то необходимо провести вычисление X и У, а за- 
тем сформировать обращение к функции деления; 
e если X — список, то необходимо провести его вычисление, а затем 
сформировать обращение к функции деления; 
e если У — список, то необходимо провести его вычисление, а затем 
сформировать обращение к функции деления; 
если все вышеперечисленные условия не выполняются, следует сфор- 
мировать обращение к функции деления. 
Соответствующая функция деления выражений, представленных в виде 
символов, будет выглядеть следующим образом: 
; функция деления выражений, представленных в виде 
‚ символов и чисел 
(DEFUN U/ (ХУ) 
(COND ((АМО (NUMBERP X) (2ЕВОРХ)) 0) 
( (AND (NUMBERP Y) (ZEROP Y)) "INF) 
( (EQUAL Y 1) X) 
((ЕБОЦАГ ХУ) 1) 
( (AND (МОМВЕБР X) (МОМВЕБР У)} (/ХУ)) 
( (AND (LISTP X) (LISTP У) ) 
© (LIST '/ (EVALS X) (EVALS Y))) 
( (LISTP X) (LIST '/ (EVALS X) Y)) 
((LISTP Y) (LIST '/ X (EVALS У))) 
(T (REST '/ X Y))) 
) 
Правила возведения в целую степень выражений, представленных 
в виде символов и чисел: 
если Х равен 1, то результат возведения в степень равен 1: 
e если У равен 1, то результат возведения в степень равен X; 
° если X - число и оно равно нулю, то результат будет равен 0; 
e если У — число и оно равно нулю, то результат будет равен 1; 
если X и У — числа, то результат равен (^ X У); 
® если X и У - списки, необходимо провести их вычисление, а затем 
сформировать обращение к функции возведения в степень: 
e если X — список, необходимо провести его вычисление, а затем chop- 
мировать обращение к функции возведения в степень; 
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* если У — список, необходимо провести его вычисление, а затем сфор- 
мировать обращение к функции возведения в степень; 
* если все вышеперечисленные условия не выполняются, следует сфор- 
мировать обращение к функции возведения в степень. 
Соответствующая функция возведения в степень выражений, представ- 
ленных в виде символов и чисел, будет выглядеть Так; 
(DEFUN U^ (ХУ) ; функция возведения в целую степень 
(COND ( (EQUAL X 1) 1) 
( (EQUAL Y 1) X) 
( (EQUAL Y 0) 1) 
( (2ND (NUMBERP X) (ZEROP X)) 0) 
( (AND (NUMBERP У) (ZEROP Y))}) 1) 
( (3ND (ХОМБЕВР X) (NUMBERP У)) (^ X Y)) 
( (AND (LIST? X) (LISTP Y)) 
(LIST '^ (EVALS X) (EVALS У))) 
((LISTÐ X) (LIST '^ (EVALS X) Y)) 
( (LIST? Y) (LIST '^ X (ЕАО Y))}) 
те) 


) 
Функции разделения выражений и присваивания будут выглядеть так: 


(DEUN U: (X Y) функция разделения выражений 


=e 


функция присваивания 


че 


SETO LXY (SUBST (LIST X Y) (ASSOC X ХУ) LXY)) 
SETO LAY (CONS (LIST X У) LXY)) 


) 
(ERROR "~%~S НЕЛЬЗЯ ПРИСВОИТЬ ЗНАЧЕНИЕ" X )} 
) 

Определим функцию (EVALD...) для вычисления выражений симво- 
лов, представленных в виде дерева в префиксной форме, и функцию 
(ЕУАТУ...) для вычисления ветвей дерева. 

Предварительно создадим ассоциативный список ЕМ в виде: 

'((+ U+) (- U-) (* 0*) (/ U/) (^ U^) (= U=) (: U:)) 
(SETQ FN (MAPCAR 'CONS '(+-*/^=:) 
‘(UF Us U” 9= UI) 
) 
; функция вычисления дерева - бинарного списка в префиксной форме 
(DEFUN EVALD (X / Y1) 
(COND ((NUMBERP X) X) 
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( (ATOM X) (ТЕ (SETQ УТ (CADR (ASSOC X 1ХУ) }} 
(EVALD Y1) X)) 
(T (EVALV (NTH 0 X) (MAPCAR (FUNCTION EVALD) (CDR X))))) 
) 
; функция вычисления ветвей дерева 
(DEFUN ЕУАГУ (OPER ARGS / ОР) 
(SETQ ОР (CDR (ASSOC OPER FN))) 
(ТЕ OP (APPLY OP ARGS) (LIST OP (EVALD (NTH 0 ARGS)) 
(EVALD (NTH 1 ARGS)))) 
) 


Функция преобразования префиксной формы выражений B инфиксную 
и функция удаления лишних скобок представлены ниже: 


(DEFUN РВЕТМЕ (5) ; функция преобразования $ 
; в инфиксную форму 
(IF (АТОМ $) $ (APPEND (DELOP (NTH 0 $) (№МТН15)) 
(LIST (NTH 0 5))} 
(DELOP (NTH O S) (NTH 2 S)})})) 
) 
(DEFUN DELOP (OP S / S1) ; функция удаления лишних скобок 
(SETQ 51 (РВЕТМЕ 5} } 
(IF (ОВ (АТОМ S1) (OLD OP (NTH 1 5$1))) 
(LIST $1) $1) 
) 


Программа преобразования аналитических выражений представлена 
ниже. 


4.1.4. Программа преобразования аналитических 
выражений 


ххххххххххххххххххххххххххххххкхххххкхххкхххххххкхххххххкххххххххххх 


; Программа преобразования аналитических выражений ANALITIC 
ххххххххххххкхххххкхххххххххххххххххххххххххххххххххххххАхХКХАХКУХХХх 


; Возможные формы записи выражений в файле АМАГТТТС. БАМ 
; А=4|илиА=4:С=6: В=С^А: Е=С+ВЛ/Е 


:С=б:| 
Ве А 
СВЕ 


; Результат преобразования записывается в файл АМАГТТТС. ВЕ? в виде: 
; (6 + 1296 /-Е) 


; Перечень используемых функций 
; (INFPREF SP ST 51) - функция преобразования инфиксной формы 
записи выражения S1 в префиксную SP в виде бинарного списка, 


a a 
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например, выражение '(С+А*р) преобразуется в '(+ C (* A D)) 
(OLD ОР1 0Р2) - функция определения приоритета операций 

(U+ ХУ) - Функция сложения выражений, представленных в виде 
символов и чисел 


(U- ХУ) - бучкция вычитания выражений, представленных в виде 
символов и чисел 


(U* ХУ) - бункциа умножения выражений, представленных в виде 
сим5олоз и чисел 

(U/ ХУ) - бузкция деления выражений, представленных 

a иде симзолов и чисел 

(EYVALS X / 02}- сункция упрощения алгебраического выражения 

(U: ХУ) - оункция сазделения выражений 

(U= X Y) - оункция присваивания 

(EVLS X) - функция вычисления выражений, представленных 


‚ S BKIS с@мзолов 


; 
; 
; 
; 
; 
; 
; (U^ ХУ) - бункция возведения выражения в целое число раз 
; 
; 
; 


LD X) - оукиия вычисления дерева выражений 
INF 5)- функция поеобразования выражения S 
; в ИБОИЕСЕУЮ ФОБМУ 
DELO? OP $) - функция удаления пишних скобок 
PER ARGS ) - чункция вычисления ветвей дерева 


PEA - бункция считывания строки B виде списка из файла 


ххх кк кхххххххАхХхххХххХХАХхХХхХХХХХАХАХХХХАхХХАХХхАХ 


— о 0 цу “в ъе ™ 


SETQ ZNAX '(^/] *-+=:)) ; список приоритета операций 
DEFUN INFPREF (SP ST S) 
(COND 


(NULL 5) {IF (CAR ST) (PR SP ST 5} (CAR SEJI) 
( (ATOM S) $) 
( (TOM (CER 5] 
(COND 
( (NOT (MEMBER (CAR S) ZNAK) ) 
(INFPREF (CONS (CAR S) SP) ST (CDR §)}) 
( (OLD (CAR S) (CAR ST)) 
(INFPREF SP (CONS (CAR S) ST) (CDR 5)}} 
(T PRSE SIPSI] 
(T (INFPREF (CONS (INFPREF NIL '(NIL) (CAR 5)) SP) 
ST (CDR 5) }}) 
) 
(DEFUN PR (SP ST S) 
(INFPREF (CONS (LIST (CAR ST) (CADR SP) (CAR SP)) 
(СРОК SPYT (COR 5Т) 5} 
) | 
; Функция определения приоритета операций 
(DEFUN OLD (OP1 OP2) 
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(ОВ (NULL 0Р2) (MEMBER ОР2 (MEMBER ОР1 ZNAK))) 
(DEFUN ^ (ХУ) 
(COND ( (EQ Y 0) 1) 
(T (* XXe- Ум) ) ) ] 
} 
) | 
; функция сложения выражений, представленных в виде 
; символов и чисел 
(DEFUN U+ (ХУ) 
(COND (.(AND (NUMBERP X) (ZEROP X}) Y) 
( (AND (NUMBERP Y) (ZEROP Y)) X) 
( (AND (МОМВЕКР X) (NUMBERP У)}) (+ X Y)) 
( (AND (LISTP X) (LISTP Y)) 
(LIST '+ (EVALS X) (EVALS У))) 
( (LISTP X) {LIST '+ (EVALS X) У)) 
( (LISTP Y) (LIST '+ (EVALS Y) X)) 
(T (LIST "+X Y)) 
) 
) 
; функция вычитания выражений, представленных в виде 
; символов и чисел 
(DEFUN U- (ХУ) 
(COND ( (EQUAL ХУ } 0) 
( (AND (NUMBERP Y) (ZEROP Y)) X) 
( (AND (NUMBERP X) (NUMBERP Y)) (- XY)) 
( (AND (LISTP X) (LISTP Y}) 
(LIST '- (EVALS X) (EVALS У))) 
( (LISTP X) (LIST '- (EVALS X) Y)) 
(({LISTP Y) (LIST '- X (EVALS Y}))) 
(T (LIST '- X Y)) 
| 
) 
; функция возведения выражения в целое число раз 
(DEFUN U^ (X Y) 
(COND ((EQUAL X 1) 1) 
( (EQUAL Y 1) X) 
( (EQUAL Y 0) 1) 
( (AND (NUMBERP X) (ZEROP X)) 0) 
( (AND (NUMBERP У) (ZEROP Y)) 1) 
( (AND (NUMBERP X) (NUMBERP У)) (^ X Y)) 
( (AND (LISTP Х} (LISTP У)) 
(LIST '^ (EVALS X) (EVALS Y))}) 
((LISTP X) (LIST '^ (EVALS X) У)) 


tô 


mm A 
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((LISTP У) (LIST '^Х (EVALS У))) 
(T (LIST ХУ) } 
} 


) 
; Функция умножения выражений, состоящих из символов и чисел 
(DEFUN 0* (X Y) 
(COND ( (EQUAL X 1) Y) 
( (EQUAL Y 1) X) 
( (OR (AND (NUMBERP X) (7ЕКОРХ)) 
(3ND (NUMBERP Y) (ZEROP Y}))}) 0) 
( (SND (NUMBERP X) (МОМВЕБР Y)) (* X Y)) 
( (AND (LIST? X) (LISTP Y) (EQUAL X Y})) 
(LIST *^ (EVALS X) 2)) 
( (3ND (LISTP X) (LISTP Y)) 
(LIST '* (EVALS X) (EVALS Y))}) 
( (LIST? X) (LIST '* (EVALS X) Y}) 
( (LIST?Ə Y) (LIST '* X (EVALS Y}))}) 
(ECUR ХУ) (LISTS = X 7)) 
(E aSr = RKN] 


) 
; бункция деления вчравений, представленных в виде 
; СИМВОЛОЗ и чисел 
(DEFUN 0/ (ХУ; 
(COND ( (AND (NUMBERP X) (ZEROP X)) 0) 
( (2ND (МОМВЕРР У) (ZEROP Y)) "INF) 
ЕО 
((ЕОбАБ УТ) 1) 
( (ZND (МОМВЕВР X) (NUMBERP 7)) (/ X Y}) 
( (NÐ (LISTP X) (LIST? Y)) 

(LIST '/ (EVĒLS X) (EVĒLS Y})) 
((LISTP X) (LIST '/ (EVĒLS X) Y})) 
((LISTP Y} (LIST '/ X (Ел Y)}))) 

(o (BEST AX XIJ) 
) 
(SETO FN (MAPCAR 'CONS '(+-*/^) 
HURU- DA UUT) 

; Функция вычисления выражений, представленных в виде 
; символов и чисел 
(DEFUN EVŁLS (X / ОР) 

(SETQ ARGS (CDR X) 

OP (CDR (ASSOC (CAR X) FN) )) 
(APPLY ОР ARGS) 
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; функция разделения выражений 
(DEFUN U: (ХУ) 
Y) 
; функция присваивания 
(DEFUN U= (X Y) 
(ТЕ (BOUNDP 'Х) 
(ТЕ (ASSOC X LXY) 
(ЗЕТО LXY (SUBST (LIST X Y) (ASSOC X LXY) LXY)) 
(SETQ LXY (CONS (LIST X Y) LXY)) 
) 
(ERROR "~%~S НЕЛЬЗЯ ПРИСВОИТЬ ЗНАЧЕНИЕ" X )) 


| a 


(SETQ FN (MAPCAR 'CONS '(+-*/^=:) 
' (U+ U- U* U/ U^ U= U:}))})) 
; функция вычисления дерева - бинарного списка в префиксной форме 
(DEFUN EVALD (X / Y1) 
(COND ((NUMBERP X) X) 
( (ATOM X) (IF (SETQ Y1 (CADR (ASSOC X LXY))) 
(EVALD Y1) X)) 
(T (EVALV (NTH 0 X) (MAPCAR (FUNCTION EVALD) (CDR X}})))) 
} 
; функция вычисления ветвей дерева 
(DEFUN ЕУАГУ (OPER ARGS / ОР) 
(SETQ ОР (СОК (ASSOC OPER ЕМ))) 
(IF ОР (APPLY ОР ARGS) (LIST ОР {EVALD (NTH 0 АВС5) ) 
(EVALD (NTH 1 АВС5) } )) 
; функция преобразования выражения S в инфиксную форму 
(DEFUN РВЕТМЕ (S) 
(IF (АТОМ $) S (APPEND (DELOP (NTH 0 S) (NTH 1 S)) 
(LIST (NTH 0 §)) 
(DELOP (NTH 0 S) (NTH 2 S)))) 
) 
; функция удаления лишних скобок 
(DEFUN ОЕГОР (ОР S / S1) 
(SETQ S1 (РВЕТМЕ 5)}) 
(ТР (ОВ (АТОМ $1) (OLD OP (NTH 1 $1))) 
(LIST $1) S1) 
) 
; Открытие файла ANALITIC.DAN для считывания исходных данных 
(SETQ FR (OPEN "C:\\ALISP\\ANALITIC.DAN" "г")} } 
; Открытие файла ANALITIC.REZ для записи результатов расчета 
(SETQ FW (OPEN "С: \\АБТЗР\\АМАБТТТС. ВЕЛ" "w")) 
; Создание функции (READL) для считывания строки в виде списка 
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ЕЮ READL () (STRCAT "( " Z " )"}))(TEXTSCR) 
DEFUN ANALITIC (/ 5) 

SETQ [ХУ p 

(WEILE (NOT (EQ (SETO Z (READ-LINE ЕВ} } МТЬ)) 


itj 
trj 
р 


P aa m P ani 


Uai см T) в № 
uj a) trj 


NT '<= FW) 
(PRINC S FW) 
(SETQ R (PREINF (CADR (CAR (EVALD (INFPREF NIL '(NIL) 
S))}))) 
} 
(PRINT '=> ) 
PRINC R 


j 
ет} tTj taj 
4] 


РОК ВИ 
$ pe 
Tn 


Пример ввода выражений, представленных в виде символов и чисел, 
в файл ANALITIC.DAN: 


sta 
| 


| 


< 
pA 
> д 


— 


| 
Ww (C) Oï 
> 


t) ОЕ С) 


Результат вычисления записывается в файл ANALITIC.REZ. 

При использовании интегрированной среды Visual LISP после записи 
функции в файл ANALITIC.LSP без ошибок в окне текстового редактора 
и запуска ее в окне консоли получим следующий результат (рис. 4.1). 


4.1.5. Разработка последовательности действий 
и программы вычисления производных 
алгебраических функций 


Напомним, что алгебраическая функция — это алгебраическое выражение, 
в котором некоторые из букв (или все) переменные. Ограничимся иссле- 
дованием алгебраического выражения с одной переменной, то есть ал- 
гебраической функции с одной переменной. Для упрощения изложения 
используем четыре основные операции — действия: сложение, вычитание, 


умножение и деление. 


Преобразование алгебраических выражений 175 


&Yisual LISP Console 


3 

_$ 

<= (A = 4) 

<= (C = 6) 

4 (B: 8) 

<= (E= С+В/Е) 


=> (6 + 1296 /Е) 
; 25 forms loaded from #<editor “С: /АЕТЗР/АМАЕТТТС. 1 $Р"> 


E > 
ЕЕ РД 


Рис. 4.1. Окно консоли Visual LISP с результатами преобразований 
олгебраического выражения 

В основу аналитического вычисления производных алгебраических вы- 
ражений с одной переменной положим хорошо известные основные пра- 
вила дифференцирования: 

и CTU y 

D(U +V) = + БУ; 

t o Sa 

D(U * V) =DU*V+U* DV; 

DUI = ит, 

где С — константа; 

О, У - алгебраические функцин одной переменной Х: 

Ч =ЕС(Х); У =К(Х). 

Для вычисления производной алгебраической функции с одной nepe- 
менной необходимо определить вид операции алгебраической функнии, 
а затем в соответствин с видом операции выполнить дифференцирование. 
При разработке программы целесообразно использовать рекурсию — NPO- 
цесс определения функции через саму себя. 

Разработаем функцию (ОТЕ..), которая аналитически вычисляет произ- 
водную от алгебраического выражения с одной переменной. Функция 
(ОТЕ..) имеет два аргумента: первый — алгебранческое выражение, пред- 
ставленное в префиксной форме; второй — переменная, согласно которой 
будет проводиться вычисление производной (дифференцирование). Функ- 
ция (ОТЕ..) будет выглядеть так: 


хххххххххкххххххххххххкххкххххкххккххххкхххххккхккхххххххХхХхкКХХКХХкХХхХ 


И 


; (DIF Y X) - функция дифференцирования алгебраического выражения 
; У в префиксной форме записи. У представляется в виде бинарного 
; списка любого уровня вложенности, например, '(*Х (* X X)), т.е. 
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список каждого уровня имеет только два элемента в списке. 


Х - пасеменная, по которой берется производная 


: 
t 
> kkètikikkkikirikkkkkkkkkkkkkkkěkkkkkkkkkkkkkřkkkkkkkkkěkkkkkkkkkěkkkěkkx 
# 


(DEFUN DIF (УХ) 
TEXTSCR) ; переход на текстовый экран 


TE p-ta 

(oor Е (ND YA) (DIF (NIR 2 YI WI) 
ОЕ 0%) '=) 

(LIST "(PaE N I Y] X) (DIF ПН Z Y XI 
(20, (МОУ) '*)] 

ЕЕ я: (DIST "> (DIF {NIH LY) XF На!) 

CIES = ТУ) (DEF (NTR 2 Y) XIII) 
( (£O (NTE 0 Y} '/) 

OEE y (LIST A- LIST {DIF (NIT LF) X) 

ANA 2 \У]) (LIST "= (NTH 1 Y) (DIF (NIH 2 Y) XIT) 


ET SaR ГУ} ТТУ) } 2) 


а) 2) ; вызов функции 
Žž X X)) (*Х (+ (*1X) (*Х1)))) ; результат 


— \ 


4.2. Обработка статистических данных 


Рассмотрим основные этапы создания системы обработки статистических 
данных. 


4.2.1. Постановка задачи 


Требуется разработать программу (функцию) для автоматизации обработ- 
ки экспериментально-статистических данных. В качестве метода обработ- 
ки этих данных используется метод наименьших квадратов. Программа 
должна определить такие параметры уравнения регрессии, которые обес- 
печат наилучшее расположение линии регрессии среди множества точек 
поля корреляции. Необходимо построить поле корреляции, изобразить на 
нем теоретическую линию уравнения регрессии и само уравнение регрес- 
сии. Для решения задачи используется язык AutoLISP 


4.2.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Ограничимся в данной задаче определением параметров уравнения рс- 


грессии линейного вида 
УАЗ, 
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где А, — свободный член уравнения регрессии; 
А, — коэффициент уравнения регрессии. 
Для определения свободного члена А, и коэффициента уравнения per- 
рессии А, используем общеизвестные ре 


N N N N 
X YŠ Xi- YX, > Х, мух, АХ Ум 
А, = 1=1 = Izi ~ 1=1 А = ЧЕ 
NŠ Xi- X) X, м>х! - $x, ух, 

[=] l=} 1=] 
где М — число пар исходных ный оба данных; 

Xp У, - значения 1-го факторного и результативного признаков. 

Теснота связи между факторным признаком X, и результативным при- 


знаком У, оценивается коэффициентом корреляции К, который определя- 
ется по формуле 


Изображение поля корреляции и всех результатов расчета необходимо 
произвести с максимально возможным масштабом увеличения. Уравнение 
регрессии и значение коэффициента корреляции следует изобразить пад 
теоретической линией уравнения регрессии с учетом наклона линии. Для 
решения задачи требуется максимально использовать встроенные функ- 
ции языка AutoLISP. 


4.2.3. Разработка последовательности действий 
обработки экспериментально-статистических данных 


Обработка экспериментально-статистических данных включает следую- 
щие основные этапы: 
определение исходных сумм: 
N N N 
SX- K SY-J Y $ХХ = >» Xi; SKY- Ух, У, ; ЗУУ = Sw 
[=] [=] [=1 [=] 
* определение параметров уравнения регрессии A, À и aiD 
корреляиии К. 
Формулы для определения Åy Åp R выглядят несколько громоздко. При 
этом отдельные их части повторяются в других формулах. Для упрощения 
расчета введем промежуточные формулы. 


$^ 
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В таком случае искомые параметры можно будет определить следую- 
щим образом: 

N N N N 

DEn 7 у’ a 7 у r 

, =... ххх, [А 

= м l= 


[=] ] 


А =С/А 


К =С//АхВ 


e изображение поля корреляции. Необходимо предварительно опре- 
делить максимальные значения факторного н результативного при- 
знаков, размеры осей и местоположение начала координат, а затем 
оформить список точек для построения поля корреляции, то есть на- 
глядного представления исходных данных на графике. 

Размерьвосей: OSX 12% ОУ =12 Y ux 

Начало кооржинат: Xam O1 X У. 

° изображение теоретическои линии регрессии в поле корреляции и CAMO- 
го уравнения вдоль линии регрессии. Для этого необходимо найти на- 
чальную и конечную точки для прорисовки теоретической линии 
уравнения регрессии. Начальная точка может быть определена из 
уравнения регрессии: 

Y = A, +А,*Х при X = 0, а конечная при X = X iay 

Зная значения ординат для начальной ТМ и конечной ТК точек, можно 


определить их координаты: 
(Хо, Yo ы А,) H (Хумлх ü Хо, Yo ы А, ы A,” X prax) 
Начальную точку TT для изображения самого уравнения регрессии 
примем равной (Xo Yo + 1.1 A; 
e формирование надписей вдоль осей X и У. Для этого необходимо опре- 
делить начальные точки надписей, а сами надписи передаются в мо- 


мент вызова функции. 
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4.2.4. Разработка фрагментов программы для 
обработки экспериментально-статистических данных 


Разработку функции для обработки статистических данных (ММКУ...) на 
языке AutoLISP начнем с определения исходных сумм. При этом будем 
использовать встроенные функции (APPLY...) и (МАРСАК...), которые 
часто называют функционалами. Функиионал - это функция, имеющая 
функциональный аргумент. Под функциональным аргументом понимает- 
ся аргумент, значением которого является функция. 

Функция (APPLY...) — это функционал, который использует для обра- 
ботки списков другие функции. Данную функцию часто называют приме- 
няющим, аппликативным функционалом, поскольку она дает возмож- 
ность работать со списками с наибольшей эффективностью. Функция 
(APPLY...) является функцией двух аргументов. 

(APPLY <‘имя функции> <'(список аргументов)>) — применение 34- 
данной функции к списку аргументов. 

Например, сумму X, в нашей задаче можно записать следующим обра- 
зом: 

(SETQ SX (APPLY '+ LX)) 
где LX — список значений факторного признака (X, Х.....). 


N N м 
Для определения сумм SX. 2AN , pe 
l=ł 


[= l=] 

необходимо составить соответствующие списки LXX, LXY, ГУУ. 

Это легко сделать с помощью функцин (МАРСАК...). 

(МАРСАВ <‘имя функцин> <'(список аргументов)>...} — выполнение 
заданной функции над первыми элементами списков, затем вторыми и т. д. 

(SETQ LXX (МАРСАВ '* LX LX) 
LXY (MAPCAR '* LX LY) 
LYY (MAPCAR '* LY LY) 
) 

где LY — список значений результативного признака (Y, У....). 

Для проведения последующих расчетов необходимо знать число пар ис- 
ходных данных. Для этого используется встроенная функция (ГЕМСТН...}. 
имеющая один аргумент — список. 

(LENGTH <список>) — определение длины списка. 

Данная функция определяет длину списка, а следовательно, число пар 
исходных данных. Эта часть программы (функция) будет выглядеть так: 

(SETQ SX (APPLY '+ LX) SY (APPLY '+ LY) 
LXX (MAPCAR '* LX LX) LXY (MAPCAR '* LX LY) 


è^. 
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ГУУ (MAPCAR '* LY LY) 5ХХ (APPLY '+ LXX) 
SXY (АРРЬУ '+ ЬХУ) SYY (APPLY '+ LYY) 
PIOS (* PI 0.5) N (LENGTH LX)) 

Для определения параметров уравнения регрессии Ayp A, и коэффици- 
ента корреляции К используем встроенные функции сложения (+...), 
умножения (*...) и деления ((/...): 

(ЗЕТОЖа.А (- (SN 5ХХ) (* SX SX)) 

В: (* №909) (* 75) 
АО (/ (- (* SY SXX) (* 5ХУ SX})}) А) 
С (- (* N SXY} (* SX SY)) 
al (/ CA) 
R (/С (SQRT (* A B})) 
) . 

Формирование изображения поля корреляции включает определение 
размеров поля корреляции и собственно вывод графического изображе- 
ния. Размеры поля корреляции представляются максимальными значени- 
ями факторного и результативного признаков, которые вычисляются 
с использованием функций (APPLY...) u (МАХ...): 

(SETQ MAXX (APPLY 'МАХ LX) MAXY (APPLY 'МАХ LY) 


K (/ 220 MAXX) LX (MAPCAR 'UMN LX) 
KX K К (/ 170 MAXY) 

КХУ (/ К KX) LY (МАРСАК 'ОММ LY) 
LT (МАРСАВ 'CONS LX LY) ТО (LIST 20 20) 

OX (POLAR TO 0 220) ОУ (FOLAR TO PIUS 170) 


) 
С помощью команд графического редактора AutoCAD "ZOOM", "ERASE" 
и "РИМЕ" определим масштаб отображения поля корреляции, удалим все 
объекты внутри заданного окна и выведем оси координат (рис. 4.2). 
(COMMEND "ZOOM" "W" "0,0" "250,200" 
"BRASE" "We 0,07 "290, 200P iu. 
РНЕ" OK "W" 0-1 01 TO OY > 
Формирование изображения поля корреляции осуществляется C помо- 
щью функции (FOREACH T 1Т...), которая из списка LT последователь- 
но выделяет точку T, и команды "POINT", которая рисует точку в поле 
корреляции: 
(FOREACH T LT 
(SETQ T1 (POLAR TO 0 (CAR Т) } 
T2 (POLAR T1 PI05 (CDR T)) 


) 
(СОММАМО "POINT" T2) 
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Формирование изображения линии уравнения регрессии можно выпол- ` 


нить следующим образом: 
(SETQ TR (POLAR ТО РТО5 (* K A0)) 
EPER (7 ЮАО] [* АТ КХУ 220) 
T1 (POLAR ТО 0 220} 
T2 (POLAR T1 РТО5 УТ} 
) 
(COMMAND "PLINE" TR "И" 0.2 0.2 T2 =") 

Для изображения над линией самого уравнения регрессии используем 
команду "ТЕХТ", которой, в свою очередь, требуется начальная точка тек- 
ста (ТТ), угол наклона текста UGOL и сам текст. Начальную точку текста 
определим с помощью функции (LIST...): 

(LIST XO (+ YO (* AQ 1.1))}) 


Для определения угла наклона уравнения регрессии используем встроен- 
ную функцию (ANGLE T1 T2), которая определяет в радианах угол линии, 
проходящей через точки Т1 и Т2 относительно горизонтальной оси про- 
тив часовой стрелки. Однако угол наклона текста в команде "ТЕХТ" дол- 
жен быть задан в градусах. Следовательно, радианы надо перевести в гра- 
дусы, и это может быть сделано с помощью комбинации функций: 


(/ (* 180 {ANGLE TR Т2)) PI) 


_ 20.620 


Постоянные затраты на маш.-см., /CA/, р. 


27.000 
Грузоподъемность автосамосвала, С, т 


Рис. 4.2. Изображение поля корреляции, осей координат и уравнения регрессии 
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Текст можно сформировать, используя функцию (5ТВСАТ...). 

(ЭТВСАТ <"текст1"> <"текст2">...) 

Эта функция сцепляет строковые константы (тексты, взятые в двойные 
кавычки) вединый текст — текстовую константу. Присвоим ей имя URAV. 

Допустим, что нам необходимо иметь запись уравнения над линией ре- 
грессии в следующем виде: 


E= О Е, 50.009 


Эта строка содержит изменяемые значення, поэтому представить ее 
в виде одной строковой константы можно так: 


Е Е] T T RIOS AL 2 2y "T 


Здесь используется функция (RTOS...). 

(RTOS <действительное число> <формат числа> <точность>) 

Данная функция преобразует действительное число в задапный формат 
числа с указанной точностью, а затем в строковую константу. Если фор- 
мат числа равен 1, а точность 2, то это научный формат представления 
чисел с точностью до двух знаков после точки. Если формат числа равен 2, 
а точность 3, то это десятичный формат представления действительного 
числа с точностью до 3 знаков после точки. 

Таким образом, определение угла наклона отображения уравнения 
регрессии UGOL и формирование текста уравнения URAV можно пред- 
ставить в следующем виде: 

(SETO  URAV (ST3CAT " Y =" (RTOS АО 2 3) 
оо ARTOS AL P A] Tryo 
вы" (RTOS R 2 3}) 
ОСОЪ (7 {* 180 (ANGLE TR T2}) PI) 
ФЕ (eT (149 С RU KIT) 
) 
Для задания стиля текста и его вывода используем команды графичес- 
кого редактора AutoCAD "STYLE" и "TEXT": 
LE” COTANOROD" "TAT" 1g" 11" аще ее 
ХТ" TT UGOL URAY 
T" OZ 0 (RTOS MAXX 2 3) 
EXT" OY РТО5 (PTOS МАХУ 2 3)) 
Напомним, что команда "STYLE" имеет следующие параметры: 
° имя текстового стиля — по умолчанию "STANDARD": 
° имя файла шрифта — по умолчанию "ТХТ"; 
° высота шрифта - 4; 
e степень сжатия/расширения — 1; 
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e угол наклона шрифта по умолчанию ноль градусов; 

° порядок записи символов по умолчанию слева направо; 

° вид записи по умолчанию в неперевернутом виде; 

° ориентация записи текста горизонтальная или вертикальная (по умол- 

чанию горизонтальная). 

Для формирования надписей вдоль осей Х и У определим начальные 
точки надписей с помощью прямого их указания, а сами надписи помес- 
тим в переменные ТХ, ТУ: 


(COMMAND "TEXT" "20,10" 0 TX 
"ТЕХ" 10,2090 TY) - 


Ниже представлена функция (ММКУ...) расчета параметров уравнения 
регрессии первого порядка и изображения поля корреляции и теоретичес- 
кого уравнения регрессии. 


4.2.5. Программа для обработки экспериментально- 
статистических данных 


$ хххххххххххххкхяккхкххххкхххххххххххххххххххххххххххххххххххххххххХхХх 
; (ММКУ LX LY TX ТУ) - функция расчета параметров уравнения 
; регрессии первого порядка и изображения поля 
; корреляции и теоретического уравнения регрессии 
‚Аргументы функции: 
; LX - список значений факторного признака '(X1 X2...) 
; LY - список значений результативного признака ' (Y1 У2...) 
; TX - поясняющий текст вдоль оси X 
; ТУ - поясняющий текст вдоль оси У 
; Пример вызова функции (ММКУ LX LY) - 
s (MNEV T (ола. ООО 127027.0 
о бы M Ir 07 11:02 20762) 
; "Грузоподъемность автосамосвала, G, T" 
; "Постоянные затраты на. маш.-см., /СА/,р.") 
s хххххххххххххххххххххххххххххххххххххххххххххххххххххххххкхххХххХХхАхКкХ 
(DEFUN UMN (X) 
ХК) 
) 
(DEFUN ММКУ (LX БУ TX ТУ) 
(SETVAR "СМОЕСНО" 0) 


> 


(SETQ SX (APPLY '+ LX) ` SY (APPLY '+ LY) 
LXX (MAPCAR '* LX LX) LXY (MAPCAR '* LX LY) 
LYY (MAPCAR '* LY LY) SXX (APPLY '+ LXX) 
SXY (APPLY '+ LXY) SYY (APPLY '+ LYY) 


PIOS 0" PLO- 3) N (LENGTH LX) 
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(SETQ А (- (* N SXX) (* SX SX)) 
B A-S LN SYY) 6% 5У. SY) } 
Вы в (95% SXX) (* SXY SXI hA) 
G al NSXY) ("SX SY) ] 
al (/ CA) 
X (7 C (SORT (*АВ)}} 


} 

(SETQ MAXX (APPLY ‘МАХ LX) MAXY (APPLY 'MAX LY) 
К (/ 220 MAXX) LX (MAPCAR 'UMN LX) 
KXK K (/ 170 MAXY) 
KXY (/ K KX) LY (MAPCAR 'UMN LY) 
LT (МАРСАВ 'CONS LX БУ} TO (LIST 20 20) 
OX (POLAR TO 0 220) OY (POLAR ТО РТОб 170) 


} 

(COMMAND "ZOOM" "W" "0,0" "250,200" 
"ERAGE" "W" "0707 "25032000 “= 
“ELINE TOX SW O-O TOO OY mm] 


1 (POLAR ТОО (CAR TT)) 
T2 (POLAR T1 PIOS (CDR TT))) 
(COMMAND "DOINT" T2) 


TOE TERO) 
20) (* A1 КХУ 220)) 
rO 0 220) 

В PILOS ЗЕ) 


ETO ЕДУ (Э1ЕСАТ "Y=" (RIOS 202 3) 
"e T ROS AT 2I TET 
"R=" (RTOS R2 3)) 
UGOL (/ (* 180 (ANGLE TR Т2)} РТ) 
TI (LIST 20 (#40 [АЕ |) 
(CCMMAND "STYLE" nn nn иди njn nn nn nn ne 
"ТЕХТ" TT UGOL URAV 
"ТЕХТ" OX 0 (RTOS MAXX 2 3) 
"TEXT" OY PIUS {RTOS MAXY 2 3} 
) 
(COMMAND "TEXT" "20,10" 0 TX 
"TEXT" "10,20" 90. TY) 
) 
(МУКУ ' (2.25 4.5 7.0 10.0 12.0 27.0) ; вызов функции 
Е. 6.9 9.32 11:07 11.62 270.62) 
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"Грузоподъемность автосамосвала, С, т" 
"Постоянные затраты на маш.-см., /СА/, р.") 


После вызова функции (ММКУ...) на экране появится графическое 
изображения поля корреляции, теоретической линии и уравнения регрес- 
сии с рассчитанными параметрами (рис. 4.3). 


20.620 


a^ 


Постоянные затраты на маш.-см., /CA/, р. 


Грузоподъемность автосамосвала, С, т 
Рис. 4.3. Результат выполнения функции (ММКУ...] 


4.3. Разработка простейшей реляционной 
базы данных 


Базы данных являются исходным этапом выработки и принятия различ- 
ного рода решений. Рассмотрим основные этапы разработки простейшей 
реляционной базы данных, в основе которой лежит табличная форма пред- 
ставления данных. 


4.3.1. Постановка задачи 


Требуется создать простейшую реляционную базу данных на основе исполь- 
зования встроенных функций языка программирования AutoLISP. Разраба- 
тываемая база данных должна обеспечить возможность поиска необходимой 
информации, обновления и вывода ее на экран. В качестве исходной инфор- 
мации возьмем технические параметры строительных универсальных экс- 
каваторов, представленные в виде таблицы (см. табл. 4.1). 
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Таблица 4.1 


G 
Нк 
Кк 


4.3.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Данные, собранные в таблице, можно представить: 

° в виде совокупности списка имен параметров; 

' ("GĦ "0" "HK" "RK" "НУ" "N" "TC" ) 
° ввиде списков значений параметров для каждого экскаватора. Напри- 
мер, для экскаватора ЭО-5124 этот список будет выглядеть так: 
ЕО ПЕ В T020- Des ПЕ: 

Используем следующие переменные: 

P — имя параметра; 

PZ - значение параметра; 

LP — список имен параметров; 

LE - список '(Р PZ), состоящий из двух элементов: имени параметра 
P и его значения PZ; 

LA — ассоциативный список, состоящий из списков LE. 

Представлять табличные данные в виде списков удобно тем, что 
AutoLISP имеет полный набор функций создания, поиска информации 
в ассоциативных списках по ключу (имени параметра), обновления дан- 
ных в списке, а также другие функции. Ассоциативный список LA являет- 
ся хранилищем данных одного столбца таблицы. 


4.3.3. Разработка последовательности действий 
и программы создания базы данных 
Создание простейшей реляционной (табличной) базы данных включает 


следующие этапы: 
e формирование списка имен параметров (ключей); 


° ввод для каждого параметра его значения; 
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e формирование пар (списков), состоящих из имен параметра (ключа) 
и его значения; 

e формирование списка пар — ассоциативного списка. 

Поиск значения заданного параметра включает: 

° поиск пары, содержащей заданный параметр (ключ); 

° выделение из пары значения заданного параметра. 

Обновление данных включает следующие этапы: 

° поиск в ассоциативном списке пар обновляемой пары по заданному 

параметру (ключу); 

e формирование новой пары; 

e замену обновляемой пары в списке пар на новую пару. 

Процесс создания простейшей базы данных, поиск нужного значения 
параметра и обновление проведем в диалоговом режиме. 

Для этого разработаем три функции: функцию создания базы данных 
(SBD...), функцию поиска значения заданного параметра (РВО) и функ- 
цию для обновления данных (ОВО). 

Сформируем список имен нужных параметров - (LP), например: 

(ЕТО DP (CIST rG" огонек" НУ} 

Для ввода параметров используем функцию (СЕТЗТВИМС...), которая 
предназначена для ввода текстовой константы: 

(SETQ PZ (GETSTRING)) 

Пары (списки), состоящие из имен параметров (ключа) и значения па- 
раметра, создадим с помощью функции (LIST...) - функции формирова- 
ния списка: 

(SETO ГЕ (LIST P Р7)) 

Создадим ассоциативный список с помощью (CONS...) — фупкции, Ko- 
торая формирует список путем добавления в его начало пового элемента: 

(SETQ БА (CONS LE БА) ) 

Ниже представлена функция (SBD...) для создания простейшей базы 
данных в диалоговом режиме. 


4.3.4. Программа создания базы данных 
в диалоговом режиме 


; (SBD ГР) - функция создания простейшей базы данных 


‚ В диалоговом режиме 


; ГР - список вводимых в базу параметров 
ххххххххххкххххххххкхххжхккхххххххххххххххкхкхкхххххххккхххххххххкххк 
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(DEFUN SRD (ГР) 
(SETO LA '(}) ; ассоциативный список 


(TEXTSCR) 

(FOREACH P LP ‚ цикл ввода значений параметров 
(РЕТМС (5ТЕСАТ "\п Введите значение параметра " P" = "}) 
(SETQ PZ (GETSTRING) ; значение параметра 

LE (LIST P PZ) ; пары параметр-значение 
LA (CONS ГЕ LA))) ; список nap параметр-значение 
(SETQ LA (REVERSE LA))) ; обращение списка пар 
(SED '("С" "О" "НК" "RK" "НУ"))  ; вызов функции (SBD...) 


В диалоговом режиме запрашиваются значения следующих Параметров: 


Бзесите значение параметра С = 14.3 
55едите значение параметра 0 = 0.63 
Взедите значение гараметра НК = 4.8 
Введите значение параметра RK = 7.79 
БЕедите з=ачение параметра НУ = 4.5 


Параметры и их значения будут представлены в виде ассоциативного 
списка ГА: 


(Egr tiean (90° Зоб оная ода ОВО? 9 оу 626). 

Поскольку эта информация относится только к экскаватору ЭО-3122, 
запомним ее в переменной с именем ЕО-3122. 

(SETO EO-3122 LA) 

Для сохранения этих данных они должны быть записаны B файл хране- 
ния данных. Перед использованием базы данных этот файл должен быть 
загружен. 

Функция (SETQ ГА '()) задает пустое начальное значение списка пар 
ассоциативного списка LA. | 

Выражение (FOREACH P ГР...) последовательно в цикле присваивает 
переменной P очередное имя параметра из списка. Далее для этого napa- 
метра выполняются функция (PRINC...) вывода па экран выражения, 
сформированного функцией (УТВСАТ...), функция (LIST...) образования 
пары параметр-значение, функция (CONS...) формирования списка пар 
параметр-значение. 

Функция (REVERSE ГА) изменяет порядок следования элементов на 
обратный. 

Функция поиска значения заданного параметра (PBD) должна начи- 
наться с ввода искомого параметра: 


(SETQ P (СЕТЗТЕТМС "\п Введите параметр (или Enter} ")) 


Отказаться от поиска можно, если нажать клавишу Ещег. Далее с по- 
мощью встроенной функции (ASSOC...) выделим пару по заданному na- 
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раметру (ключу). С помощью функции (CADR...) из пары выделим иско- 
мое значение параметра. 

Функции (PRINC...) и (ТВСАТ...) обеспечивают вывод найденного 
значения параметра, например, TC = 25.0. 

Функция поиска значения нужного параметра (PBD) будет выглядеть 
следующим образом. 


4.3.5. Программа поиска данных в базе данных 
в диалоговом режиме 


; kkkkkkkkěkkěkkkkkkkkkkkěkkkkkkkŘkkkkkkŘkkkkŘkkkkŘkkkkěkkěkkkkšžkěkkňákěkkk*ěžkěkěkkkkkġýġkkěkkkkkkxk 
; (PBD LA) - функция поиска значений HYXHOTO 

‚ параметра в базе данных в диалоговом режиме 

; ГА - ассоциативный список пар (параметр значение} 

; перед использованием функции (PBD) необходимо сфор- 

; мировать соответствующую базу данных функцией (SBD) 


.‹ ХхххкххххххххххххххкххххххххххххххххххххххххххххххххххххххххххххххХхХх 
r 


(DEFUN PBD (LA) 
(SETQ P (GETSTRING "\п Введите искомый параметр (или Enter) ")) 
(IF (/= (ASCII P) 10) 
(PROGN (SETO LE (ASSOC P LA) 
PZ (CADR LE)) 
(PRINC (STRCAT P " = " PZ))}) 


) 
Допустим, функция (SBD...} сформировала ассоциативный список под 


именем Г.А следующего вида: 
(75 "3920" Or "Тао ER AETS" (ARR “T00 (Ник Eag") 
Поскольку эта информация относится только к экскаватору 90-5124, 
запомним ее в переменной с именем ЕО-5124. 
(SETQ Е0-5124 ГА) 
Для сохранения этих данных они должны быть записаны в файл хране- 
ния данных. Перед поиском данных этот файл должен быть загружен. 
Если в ответ на запрос функции (РВО ЕО-5124) ввести следующее зна- 
чение: 
Введите искомый параметр (или Enter) Q 
получим результат 
Q= 1.6 
Функция обновления данных выполняет те же действня, что и функция 
поиска, а также действия, связанные с вводом нового значения параметра 


и заменой старого значения на новое. 
Ниже представлена функция для обновления данных (ОВО). 
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4.3.6. Программа обновления значений 
в базе данных в диалоговом режиме 


ххаххлхлхлхххкхххххххххххххххххххххххххжххкхккххкххххххххххххЖжхХхХхХжЖхХхХ 


(СЁР ГА) - Функция обновления значений в базе данных 
см режиме 

LA - ассоциатизный список Nap (параметр значение) 
гоедзасительно должна быть создана БД функцией (SBD) 


кхххххххкххкхххххххххххкхххххххххххххххххххххххххххххххххххххххххххХх 


ВЕРХ ОБО (L3) 


“д чо -о ъф "с =% 4 
ui 
| 
= 
en 
> 
С) 
FJ 
O 
11) 


(SETQ LE (ASSOC P LA) 
PZ (CADR LE) ) 
RINC {(STRCAT P " =" PZ)}) 
TO PZN (GETSTRING "\n Введите новое значение ")) 
(/= (ASCII PZN) 10) 
(SETQ PZN (LIST P PZN) 
LA (SUBST PZN LE ЦА))))) 
} 
Допустим, что функция (SBD...) сформировала ассоциативный список 
под именем Г.А вида: 
Eae 7.9% (aja 5) ("НК" и) ("ВК" LG ("HV" EE BNI 
Поскольку эта информация относится только K экскаватору ЭО-6123, 
запомним ее в переменной с именем ЕО-6123. 
(ЗЕТО Еб- 5123 БА] 
Для сохранения этих данных их можно записать в файл хранения дан- 
ных. Перед обновлением данных этот файл должен быть загружен. 
В ответ на запрос функции (ОВО ЕО-6123) необходимо ввести обнов- 
ляемый параметр и новое значение. 
Введите обновляемый параметр ВК 
Введите новое значение 11.8 
Тогда ассоциативный список под именем ЕО-6123 будет уже выглядеть 
так: 
(on seS) О) Ре a 
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5.1. Расчет электрических и технических 
систем 


Рассмотрим создание таких распространенных подсистем, как формиро- 
вание графического изображения и расчет электрических схем перемен- 
ного тока, расчет собственных частот механических систем. 


5.1.1. Постановка задачи 


Имеются электрические схемы переменного тока, состоящие из сопротив- 
лений, индуктивностей и конденсаторов. Требуется разработать объектно- 
ориентированную подсистему для формирования графических изображе- 
ний электрических схем любой сложности с прорисовкой как самих 
элементов. так и их параметров. 


5.1.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Элементы электрической схемы могут быть соединены последовательно 
либо параллельно. 

Для создания графического изображения схемы могут понадобиться 
горизонтальные и вертикальные проводники, соединяющие те или иные 
элементы схемы. Вертикальные проводники могут быть направлены вверх 
или вниз, горизонтальные — вправо или влево. 

Каждый базовый элемент электрической схемы можно представить 
в виде некоторой функции. Для формирования графического изображе- 
ния сопротивления необходимо создать функцию (ВР), для индуктивно- 
сти — (ЕР), для конденсатора — (СР), для вертикального проводника, 
направленного вверх,- (VP+), вниз — (УР-), для горизонтального провод- 
ника, направленного вправо,— (СР+), влево — (СР). 


5.1.3. Разработка последовательности действий 
и комплекса функций параметрического изображения 
всех элементов схемы 


Прежде создадим функции для формирования графических изображений 
базовых элементов схемы: 
(СЕРОМ ВР ()} ; функция создания изображения резистора 
(COMAND "BLINE" 09%" 0.01" 0.017 "02.0760, 1"005. 8" 
rag. -1= 202 0" TE=2 0m 90,1" оо 
те". [LIST АРУ) TU Ur eRS 
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“TEXTY (LIST (5 Х,3) 506 УМ. 5) ) 110779410 NOM 
ВАХ 3) (т УЕ 5) 550. ГОО) 
) 
(DEFUN LP () -7 функция изображения катушки индуктивности 
(COMMAND "PLINE: TB "М" “03017 30.017 m02, 07 "al 1T "8-2" 
"dl o2" FUI, ое аа S" a oT ** 
TEXT (DIST Жо] dt Yy lo) 9. E L" 
"TEXT" {LIST (F X3) G Y 1:5) "0.7" TO" NOM 
"TEXT" (LIST GX |071" "TT NUM) 
) 
(DEFUN CP () ; функция создания изображения конденсатора 
(COMMAND ý 
PPEENE” TE "WT OROI "O GTa 0 0,1" I -27 t 
"DRINE" "ВО" оО" О rage ne A eA ** 
PENT” (BIST AX 2 F a la) DT E gn 
“TEXT” (HISP D FYLLS) 67" "UNOM 
"PERD" TLIST EX S) (ty 1a) TO 7" М] 
) 


В функциях используются переменные ТВ, МОМ и NUM, которые опре- 
деляют базовую точку элемента, номер и величину сопротивления элемен- 
та соответственно. Эти переменные должны быть определены до исполь- 
зования функций (КР), (Т.Р) и (СР), например, так: 

(SETO TB (LIST 5 7) NOM "3" NUM "1050" } 

Ниже на рис. 5.1 представлены примеры создания в среде AutoCAD rpa- 

фических изображений резистора, катушки индуктивности и конденсатора. 


ЕН Aw 


Рис. 5.1. Примеры графического изображения элементов электрической схемы 


Создадим функции формирования графического изображения провод- 
НИКОВ. 


(DEFUN VP+ () ; функция изображения вертикального проводника вверх 
(COMMAND "РИМЕ" ТВ "W" "0.01" "0.01" "@0,10" "")) 

(DEFUN VP- () ; функция изображения вертикального проводника вниз 
(COMMAND "PLINE" ТВ "W" "0.01" "0.01" "@0,-10" "")) 

(DEFUN СР+ () ©; функция изображения горизонтального проводника вправо 
(COMMAND "PLINE" TB "W" "0.01" "0.01" "@10,0" "")) 

(DEFUN GP- () ; функция изображения горизонтального проводника влево 


[COMMAND "PLEINE" TB "W" "0.01" "0.0" "Q@=-10,0™ *1)) 


7 — 1278 
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Ввести в диалоговом режиме необходимую исходную информацию 
можно следующим образом: | 


(SET N (GETINT "\n Введите число элементов B цепи М = ") 
I 0) 
(REPEAT N ; цикл ввода элементов и их данных 
(ЕТО Т (+1) 
(SETQ ТМУ (GETSTRING (STRCAT "\п Введите имя " 
(ТТОА I) "-го элемента цепи <В,Г,С,УР+,УР-,СР+,СР-> - "))) 
(COND ((ЕО ТМУ "R") (SETQ RAZM " в омах " RAZ " ом"}) 


( (EQ IMY "L") (SETQ RAZM " в генри " RAZ " генри"}) 
( (EQ IMY "C") (SETQ RAZM " в мкФ" RAZ " MKỌ")) 
) 
(COND (465 (ЕО TIMY "RJ {E0 IM "L" [ВО IMY 62) 
(SETQ NOM (ТТОА (GETINT "\n Введите номер элемента NOM = "))) 
(SETQ SOPR (STRCAT (GETSTRING (STRCAT "\n Введите " 
"ссгоотивление элемента цепи " IMY NOM RAZM) ) RAZ)))) 
(SETQ T35 (СЕТРОТМТ "\n Введите точку вставки элемента - ")) 
(SELO A (NIH 0 TB) 


VI (NTH 1 ТВ) ) 
{COND 

((Б0 ТМУ "В") (RP]) ; создание изображения резистора 
({20 ТЕ "5" (6) ) ; создание изображения индуктивности 
Е И "C"] (CPJ) ; создание изображения конденсатора 
ЕЯ”) (VEE) ; создание изображения провода вверх 
| (ЕО ТМУ "СР+") (СР+)) ; создание изображения провода вправо 

( (EQ ТМУ "УР-") (УР-)) ; создание изображения провода вниз 
( (EQ ТМУ "СР-") (СР-)) ; создание изображения провода влево 


) = 
) 

В окончательном варианте комплекс функций для создания графичес- 
кого изображения электрической схемы переменного тока, состоящей из 
сопротивлений, катушек индуктивностей и конденсаторов, будет выгля- 
деть так, как показано ниже. | 


5.1.4. Комплекс функций параметрического 
изображения всех элементов электрической схемы 


ххх кКхкКХХЖХхХхХхХХкХ 


Комплекс функций для создания в диалоговом режиме графического . 
изображения электрической схемы, состоящей из сопротивлений, 


конденсаторов и катушек индуктивностей 
ХХХ ККККККККК КК КККККККК КК ХХХ КАХхХХ 


“me С. Ny С чь 


праыаниню = ПИН 


mra 
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(SETVAR "BLIPMODE” 0) ; отключение маркеров 
(SETVAR "СМБЕСНО" 0) ; отключение эха команд 
(DEFUN ВР () к ; функция изображения резистора 
(COMMAND T PLINE“ ТВ” "0:01", "0.0-2 0" 5 r@0, 1a" 06,07 
"@0,-1" "@2,0" "@-2,0" rRQ0,-1" "@-6,0" "@0,1" =" 
SPERT (LISTE F 12) (У 145120. 7 s 
“TEXT ADISTA ХВ. a70 НОМ 
“TEAT” (LIST (HX ol Ua ar- О ОЕ) 
) 
(DEFUN ГР () °— ; функция изображения катушки индуктивности 
(COMMAND "PLINE" ТВ "W" "0.01" "0.01" "@2,0” "@1,1" "@1,-2" 
С С о С 0n 
Ба) о Г" 
Е (LIST и У "И. 2 NOM 
Е (LISTIE R aE 5 О и 95 SOPR) 
(DEFUN СР () ; функция изображения конденсатора 
(COMMAND — 
"PLINE" TE: "<" 00° В 0” "adn" "B0 T" оО" 
РЕ" аи 00120.00 "00.17 О 
В" {CIST (FXX) а" To" r 
TEXT CIST, EXO) У г "ОМ 
"TEX Ia (LIST 1X5) (tY ЕЕ r0" SOPR) 
} 
; функция изображения вертикального проводника, направленного вверх 
(DEFUN VP+ () (COMMAND "PLINE" ТВ "М" "0.01" "0.01" "@0,10" "") 
} 
; функция изображения вертикального проводника, направленного вчиз 
(DEFUN VP- ()} 
(COMMAND "РЬТМЕ" TB "W" "0.01" "0.01" "@0,-10" "") 
} 


; функция изображения горизонтального проводника, направленного впоазо 


-' (DEFUN ;GP+ () 


(COMMAND "PLINE" ТВ "М" "0.01" "0.01" "@10,0" TY) 
} 
; функция изображения горизонтального проводника, направленного влево 
(DEFUN. СР- () -. | 

(COMMAND "PLINE" TE "W" "0.01" "0.01" "@-10,0" "") 
) » - | 
(COMMAND "LIMITS" "0,0". " 40, 30") 
(COMMAND "ZOOM" "А") | 

(SETO М (GETINT "\п Введите число элементов в цепи N =") 

I 0) 


7 
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(REPEAT М ; цикл ввода элементов цепи и их данных 
(SETQ I (+ I 1)) 
(SETQ IMY (GETSTRING (STRCAT "\n Введите имя“ 
(ТТОХ I) "-го злемента цепи <R,L,C,VP+,VP-,GP+,GP-> - "))})) 
(COND ((EQ IMY "R") (SETQ RAZM " B омах " RAZ " om'")) 
( (EQ ТМУ "L") (SETQ RAZM " в генри " RAZ " генри")) 
( (EQ IMY "C") (SETQ RAZM " в мкФ" RAZ " мкФ")) 


COD (OR (E0 IMY "В") (ЕО TMY "L") (EO IMY "€"]} 
(SETQ NOM (ITOA (GETINT "\n Введите номер элемента NOM = "))) 
(SETQ SOPR (STRCAT (GETSTRING (STRCAT "\п Введите " 
"согостизление элемента цепи " ТМУ NOM RAZM )) RAZ)))) 

(SETO TB (СЕТРОТМТ "\n Введите точку вставки элемента - ")) 

(SETO Хх (МО TB) 

Y (NTa l TBJ) 

(COND 
( (EQ ТМУ "R") (RP)) ; создание изображения резистора 
(S0 Ти "L" {LEJ} ; создание изображения индуктивности 
( (ЕО ТМУ ="С"} (СР)} ; создание изображения конденсатора 
к (50 ТМУ "УР-") (УР+}) ; создание изображения провода вверх 
( (EQ ТМУ "G?-+") (СР+)) -; создание изображения провода вправо 
( (EQ IMY "VP-") (V?-)) ; создание изображения провода вниз 
( (EQ ТМУ "б2-") (СР-})) ; создание изображения провода влево 


Для формирования в диалоговом режиме графического изображения 
электрической схемы переменного тока, состоящей из сопротивлений, 
конденсаторов, катушек индуктивностей и проводников, достаточно обра- 
титься к комплексу функций, созданных выше. Данный комплекс функ- 
ций целесообразно сохранить в файле, например, ELKTRISD.LSE Допус- 
тим, этот файл находится в папке (каталоге) АТ.ТЗР на диске С:. После 
загрузки файла в командной строке AutoCAD 


Согтая@: (LOAD "C:/ŁLISP/ELKTRISD") 


будет запрашиваться необходимая информация для создания графическо- 
го изображения схемы. В качестве примера возьмем схему, изображенную 
выше. На запросы командной строки AutoCAD введем данные, представ- 
ленные ниже в правой части запросов. Все запросы и данные по ним будут 
отражаться в текстовом окне AutoCAD (Shift+F2). 


Введите число элементов в цепи М = 12 

Введите имя 1-го элемента цепи <В,Ё,С,УР+,УР-,СР+, GP- > R 
Введите номер элемента NOM = 1 

Взедите сопротивление элемента цепи RÌ B омах 1 

Введите точку вставки элемента - 0,12 
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Введите 
Введите 
Введите 
Введите 
Введите 
Ввеците 
Введите 
Введите 
Введите 
Введите 
Введите 


имя 2-го элемента цепи 
точку вставки элемента 
имя 3-го элемента цепи 
точку вставки элемента 
имя 4-го элемента цепи 
номер элемента МОМ = 2 
сопротивление элемента 
точку вставки элемента 
имя 5-го элемента цепи 
номер элемента МОМ = 1 
сопротивление элемента 


<R L СЗУ Р-,СР+,СРЕЗЖУРЕ 
ни, 12 

в, L,C. УР УР СЕР, СВЕ УВЫ 
10,12 

<R, L,C, VP+, МЕ СРЕ, 6Е-> R 


цепи R2 B омах 100 
- 10,22 
<В,Ь,С,УР+,МР-,СР+,СР-> L 


цепи Ll в генри 0.2 


Введите точку вставки элемента - 20,22 
Введите имя 6-го элемента цепи <В,Г,С,УР+,УР-,СР+,СР-> С 
Введите номер элемента МОМ = 1 


Введите сопротивление элемента цепи Cl в мкФ 1000 
Введите точку вставки элемента - 10,12 
Введите имя 7-го элемента цепи <В,ЁЬ,С,\УР+,УР-,СР+,СР-> R 


Введите 
Введите 
Введите 
Введите 
Введите 
Введите 
Введите 
Введите 
Введите 
Введите 


номер элемента МОМ = 3 
сопротивление элемента 
точку вставки элемента 
имя 8-го элемента цепи 
точку вставки элемента 
имя 9-го элемента цепи 
точку вставки элемента 


цепи R3 в омах 1000 

- 10,2 
<В,6,С,УР+,УР-,СР+,СР-> СР+ 
- 20,12 
<В,Ь,С,УР+,УР-,СР+,СР-> VP- 
- 30,22 


имя 10-го элемента цепи <В,Г,,С,УР+,УР-,СР+,СР-> VP+ 


точку вставки элемента 


2 902 


имя 11-го элемента цепи <ВК,Ь,С,УР+,УР-,СР+,СР-> GP+ 


Введите точку вставки элемента - 20,2 
Введите имя 12-го элемента цепи <К,Г,С,УР+,УР-,СР+,СР-> СР+ 
Введите точку вставки элемента - 30,12 
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_ Фрагмент введенных в диалоговом режиме данных для создания графи- 


ческого изображения электрической схемы представлен в текстовом окне 
AutoCAD (Shift+F2) (рис. 5.2). 

По мере ввода информации в строке запросов в поле чертежа будет по- 
являться графическое изображение электрической схемы, которая в ко- 
нечном виде будет выглядеть так, как показано на рис. 5.3. 

Далее ‘создадим функцию, которая вводит исходную информацию через 
аргументы (параметры функции). Для этого сформируем список данных 
по всем элементам схемы, включая проводники. Допустим, наша схема со- 
стоит из 12 элементов. Данные по каждому элементу схемы представляют- 
ся в виде списка в списке Г.Е. Первый элемент списка данных включает 
имя элемента, второй — номер элемента, третий — значение сопротивления, 
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2 АшоСАОо Текстовое Окно IE 
Edit 


Comand: (load "C:Z/ALISP/ELKTRISD1") 

Взеците число элементов B цепи N = 12 

введите имя 1-го элемента цепи <В,Ъ,С,УР+,УР-,СР+,СР-> - В 
Взедите номер элемента NOM = 1 H 
Введите сопротивление элемента цепи R1 в омах 1 


Ввеците точку вставки элемента - 0,12 


Зведите имя 2-го элемента uenn <В,Ъ,С,\УР+,УР-,СР+,СР-> - VPH 
Yy 


сслиапа: 


Рис. 5.2. Фрагмент данных для создания изображения 
электрической цепи в диалоговом режиме 


R3 1000 


ВИН 


Рис. 5.3. Параметрическое изображение электрической схемы 
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четвертый — точку начала создания графического изображения элемента, 
пятый — точку окончания создания графического изображения элемента. 


; Создание. списка элементов цепи ` 

. для графического изображения схемы 

(ЗЕТО LE (LIST- 
ре 1 {010 4107) 
“(Ppr 1T DOTIO TO) (10207) 
М" A 0 TIO TOP (199 
(R2 100: {10 20) (20 207) 
("pe ©. 2.20.20] 00 20) 
"О (L0 T0) 12018) 
(`В! 3 1000 (109) 120.0 
Ее" 10 {20 107 10 TO) 
‘("УР-" 21 (30 20) (30 10)) 
(VBA 20 C30 0) (G0 T0} 
OGP" U 120 07) {30 0 
(aO S O {30 TO) (40 10})}) 

) 


Для формирования графического изображения электрической схемы 
переменного тока, состоящей из сопротивлений, конденсаторов, катушек 
индуктивностей и проводников, создадим функцию ($НЕМАКЦ[$...): 


(DEFUN ЗНЕМАВТС (LL) 
(FOREACH EL LL 


(SETO TB (NTH 3 EL) ; точка вставки элемента 
X (NTH 0 TB) 
Y (NTH 1 TB) 
IMY (NTH 0 EL) ; имя элемента 
МОМ (NTH 1 EL) ; номер элемента 
NUM (NTH 2 EL) ; сопротивление элемента 
) 
(COND 
(ЕО IMY TR") (RPJ) ; изображение резистора 
( (ЕО ТМУ "L") (LP}) ; изображение катушки индуктивности 
( (EQ IMY "С") (СР)) ; изображение конденсатора 
( (ЕО ТМУ "УР-") (УР-)} ‚ изобр. вертикального провода вниз 
( (ЕО ТМУ "УР+") (УР+)) ; изобр. вертикального провода вверх 
( (EQ ТМУ "СР+") (СР+}) ; изобр. горизонтального провода вправо 
( (ЕО ТМУ "СР-") (СР-)} ; изобр. горизонтального провода влево 
(T (RP)))) 


) 
В окончательном виде комплекс функций для создания параметричес- 
кого изображения электрической схемы, состоящей из сопротивлений 
конденсаторов и катушек индуктивностей, представлен ниже. 


? 
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3.1.5. Программа параметрического изображения 
электрической схемы 


ККИ КАХККАККХКЯХХХАКАККАХАК 


Комплекс функций параметрического изображения электрической 


ъ è то % p eo чо 


схемы, состоящей из сопротивлений, конденсаторов и катушек 
индуктивностей 
ххх хххкххххккххкххкххххккккххххххАХхххАхХхХхХхХХх 
(SETVAR "BLIPMODE” 0) ; отключение маркеров 
(ЗЕТУАК "CMDECHO" 0) ; отключение эха команд 
(DEFUN R? () ; функция изображения резистора 


[ООЗЕТа “PLINE” TR "W" "0.017 "0.01" "E2210 "ED, I" "06 U" 


ЕЦ", 0" "E207 meU, =" 
"TEAT" {EIST (7X2) F yds) 
"AEREE (LESE (8A 3] ей 


SPENE (EESE EX S eE Ta] 


C a O 
ana A 
"0.7" "0" NOM 
"0.7" "0" NUN) 


; Функция изображения катушки индуктивности 
О PLINE В W= “0I 0.0" ЗО 1" 
ат, JA FGE ый Теа" Taf ово." 
DEAT (PISI ат a Foram Spr 
TEAT? (BEST aX a) rra ОО 
ВЕ (LIST EK I 5) О NUM) 


3 


T" 


Ми" 


(DEFUN СР () 
en 
"DI INE" TR лы о” О "@4,0" "@a0,1" "@0,-2" пи 

"РГ.ТМЕ" 2.0“ ну" A" 0" "a0 2" "@0,-1" "84,0" пп 


; Функция изображения конденсатора 


Ее CEST К т. 5] 0:7" =050 
ITEXT" (Вт (+ ХЗ) {4 9915} ) "0.7" "ОИ 
"ТЕХ" (UEST (+5) (+ 1:5) *0. 7“ *0* ММ) 


) 
(DEFUN VP+ () ; Функция изображения вертикального 
; проводника вверх 


(COM ZND TPLINE ТВ TW" "0.0" "O OL" YEO IOT =r) 


) 
(DEFUN VP- () ; функция изображения вертикального 
; проводника вниз 


(COMMAND "PLINE" ТВ "И" "0.01" "0.01" "@0,-10" =") 


) 
; функция изображения горизонтального проводника вправо 
(DEFUN СР+ () (COMMAND "PLINE" ТВ "W" "0.01" "0.01" "@10,0" *") 
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. функция изображения горизонтального проводника влево 
(DEFUN СР- (} *^ | 
(COMMAND "PLINE" ТВ "И" "0.01" "0.01" "@-10,0" ""} 
) 
(COMMAND "LIMITS" "0,0" "40, 30") 
(COMMAND "ZOOM" "A") 
(DEFUN SHEMARIS (LL) 
(FOREACH EL LL 


(SETO TB (NTH 3 EL) точка вставки элемента 


= a 


X (NTH 0 TB) 

Y (NTH 1 TB) 

IMY (NTH 0 EL) ; имя элемента $ 

NOM (NTH 1 EL) ; номер элемента 

МОМ (NTH 2 EL)) ; сопротивление элемента 
(COND ( (EQ ТМУ "В") (RP)) ; изображение резистора 
( (EQ ТМУ "L") (LP)) ; изображение катушки индуктивности 
( (EQ IMY "С"? (CP})) ; изображение конденсатора 
( (ЕО ТМУ "УР-") (VP-)) ; изобр. вертикального провода вниз 
((ЕО ТМУ "УР+") {УР+)) ; изобр. вертикального провода вверх 


изобр. горизонтального провода вправо 
изобр. горизонтального провода влево 


"e g 


( (EQ IMY "СР+"} (GP+)) 
( (EQ IMY "GP-") (GP-)) 
(THRE) ) I) 


5 


} 

Этот комплекс функций целесообразно сохранить в файле, например, 
ELKTRISL.LSP. Допустим, этот файл находится в папке (каталоге) ALISP 
на диске С:. 

Для создания в пакетном режиме графического изображения электри- 
ческой схемы переменного тока, состоящей из сопротивлений, конденса- 
торов и катушек индуктивностей, необходимо загрузить указанный файл 
в командной строке AutoCAD: 


Command: (LOAD "C:/ALISP/ELKTRISL") 


Затем предстоит сформировать список LE. Например, для электри- 
ческой схемы (см. рис. 5.3) список LE можно записать так: 


(SETQ LE (LIST ; список элементов цепи для изображения схемы 
(apr T1 (2127 {12 2I 
Я 127 (12-22) 
wa aypan 0'(12 12) {12 27) 
R2100 (1222F (22227) 
О 225221 (321221) 
4{2C91:1000 (12 12) [22 12)} 
1000412212252} ) 
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(m, 


(22123212) 9 ` 
о №} 
Ca 2] (32 р. 
ев) (32 21) 

(3% T2) 142412) ) 


a 
GJ b3 К M p- 


O OUG F 


и вызвать функцию: 


=- -—q fa 1 1 m = 
(SHIZMaRIS LE) 


Список LE можно ввести непосредственно в функцию (SHEMARIS...): 


(СЕЫМАКТС (LIST 
о щит) [12 12] | 
о тт] (T2 221) 
А E ER 
ее T2 221 
eaa L O 2) 
Gr T ION TE E) т] | 
"Ipe 5 Е (12 2 Ра) 
doean aO NA 
“(eem (3222 (32 127) 
Е Ay 32 2T] 
ыы Aa a 
р 0na) (82 12)) l 


} 


В результате получим параметрическое изображение электрической 
схемы, представленной на рис. 5.3. 


5.1.6. Основные этапы автоматизации расчета 
электрических схем переменного тока 


Рассмотрим теперь основные этапы автоматизации расчета электрических 
схем переменного тока. 


Постановка задачи 


Требуется разработать систему для автоматизации расчета электрических 
схем переменного тока, состоящих из сопротивлений, индуктивностей 
и конденсаторов. Система должна быть объектно-ориентированной, пред- 
назначенной для описания и расчета электрических схем любой сложнос- 


ти. Расчетные параметры — полное сопротивление электрической схемы 
и резонансная частота. 
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Выявление основных особенностей, взаимосвязей 
и количественных закономерностей 


Все элементы электрической схемы, как базовые, так и комбинации базо- 
вых элементов, могут быть соединены последовательно или параллельно, 
а также в разных сочетаниях. 

Каждый базовый элемент электрической схемы можно представить 
в виде функции, для наименования которой целесообразно использовать 
обозначения, применяемые наиболее часто. Так, для расчета сопротивле- 
ния резистора К создадим функцию (В ОМ), для расчета сопротивления 
катушки индуктивности L - (L НЕМ), а для конденсатора С — (С FAR). 
Аргументами функций являются: ОМ - сопротивление, измеренное 
в омах; НЕМ - индуктивность, измеренная в генри; ЕАК — емкость конден- 
сатора, измеренная в фарадах. 

Чтобы унифицировать запись полного сопротивления для базовых эле- 
ментов, используем комплексное число, которое можно представить в виде 
списка, состоящего из вещественной части и мнимой части комплексного 
числа. 

Полное сопротивление для резистора равно вещественной части, мни- 
мая часть равна 0. 

Полное сопротивление для катушки определяется только мнимой час- 
тью и равно W * НЕМ. 

Полное сопротивление для конденсатора также определяется только 
мнимой частью и соответственно равно —1 / (W * FAR). 

Последовательное соединение двух элементов E, и E, будем описывать 
функцией (POSL Е1 E2). 

Полное сопротивление последовательного соединения двух элементов 
определяется известной формулой сложения двух комплексных чисел: 

2 = Z+ Z = (А+ В.Т) + (А, В.Т) = (А+ A) + (B+B, 

Параллельное соединение двух элементов Е, и E, будем описывать фун- 
кцией (РАВ Е1 E2). 

Полное сопротивление параллельного соедипения двух элементов 
определяется следующей формулой: 

E=17/ (72FF17) 

Величину 1 / 2, = 1 / (A, + B D) можно представить как 

1 / (А, + ВЛ) = (А, - ВИ) / (А, + B?) = А, / (Af + B?) - B I / (А? + В!) 

Аналогичное выражение можно записать и для 1 / Z. 

Для поиска резонансной частоты необходимо, изменяя частоту перемен- 
ного тока, найти такую частоту, при которой полное сопротивление элек- 
трической схемы будет равно нулю. 
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Разработка последовательности действий и комплекса 
функций для расчета элементов электрической схемы 


Создадим функции, определяющие полное сопротивление базовых эле- 
ментов схемы: 


(DEFUN R (OM) ; определяет полное сопротивление резистора 
(LIST OM 0) 


) 
(DEFUN L (REN) ; опоеделяет полное сопротивление индуктивности 
т 


(DEFUN С (РАБ) ; определяет полное сопротивление конденсатора 
(LIST 0 (/ -1 (*М ЕАВ))) 

) 

Далее создадим функцию (POSL...), которая определяет полное CO- 


противление схемы, состоящей из двух последовательно соединенных 
элементов: 


(DEFUN 2056 (71 72) ; определяет сопротивление цепи из двух 
; последовательно соединенных элементов 

(= {ANa 0 ZA) (NTR'U 22) ) 
B ПЕ (NTH 1-22) 1) 
) 


m 


Создадим теперь функцию (POSLN...), которая определяет полное CO- 
противление схемы, состоящей из нескольких последовательно соединен- 
ных элементов, представленных в виде списка. 


(DEFUN POSLN (LN) ; определяет сопротивление цепи из 
; N последовательно соединенных элементов 
(COND (( NULL LN) NIL) 
( (= (LENGTH LN) 1) (NTH 0 LN)) 
( (= (LENGTH LN) 2) (POSL (EVAL (NTH 0 LN)) 
(EVŁL (NTH 1 LN) ))) 
(T (POSL (EVAL (NTH 0 LN)) (POSLN (CDR LN})))})) 


) 


Перед созданием функции, определяющей полное сопротивление CXE- 
МЫ, состоящей из двух параллельно соединенных элементов, создадим 
функцию для вычисления обратного значения комплексного числа. При 
этом используем ранее полученное выражение: 

1/2=1/(А+В1 =А / (А? +В?) - ВГ/ (А? + B’). 

(ПЕРОМ КО (7) ; определяет обратное значение 

(SETQ ЕЁ (NTH 0 7) ; комплексного числа 1 / Z 
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В (NTH 12) 
SUMH E (Е ARA ВВ))} 
(LIST (ГА SUM) (*В (/ -1 SUM) ) )} 
) 
Для определения полного сопротивления схемы, состоящей из двух па- 
раллельно соединенных элементов, применим ‘известную формулу: 
7 =1/(1/2,+1/2,) 
Соответствующая функция будет выглядеть следующим образом: 
(DEFUN PAR (21 72) ‚; определяет сопротивление цепи из двух 
‚ параллельно соединенных элементов 
(КО (POSL (КО 71) (КО 72))) 
O P 
Далее создадим функцию (РАКМ...), которая определяет полное сопро- 
тивление схемы, состоящей из нескольких параллельно соединенных эле- 
ментов, представленных в виде списка: 


(DEFUN PARN (LN) ; определяет сопротивление цепи из 
; N параллельно соединенных элементов 
(COND (( NULL LN) NIL) 
( (= (LENGTH LN) 1) (NTH 0 LN}) 
((= (LENGTH LN) 2) (PAR (EVAL (NTH 0 LN}) 
(EVAL (NTH 1 LN) ))) 
(T (PAR (EVAL (NTH 0 LN)) (PARN (CDR LN)))}) 


) 

Теперь создадим функцию (REZONANS...) для расчета резонансной 
частоты, которая по начальной частоте W и приращению частоты DW 
определяет резонанспую частоту системы: 

(DEFUN REZONANS (PRIZN W DW) ; определяет резонансную частоту 

(SETQ S (EVAL СЕР) ) 

(COND {(< (NTH 1 S) 0) (SETQ ZN '<)} 
( (> (NTH 1 S) 0) (SETQ ZN '>)) 
((= (NTH 1 S) 0) (SETQ ZN '=})) 

) 


(WHILE ( (EVAL ZN) (NTH 1 S) 0) ; цикл поиска оптимальной частоты 
(SETQ W (+ W DW)) ; изменяет частоту в цепи 
(SETQ S (EVAL СЕР) )) ; расчет электрической цепи 
(PRINC "\п\п Результаты расчета "} 
(PRINC "\п Собственная частота схемы, 1/С МО = ") (PRINC И) 
(ТЕ (= PRIZN 1) (РВОСМ (ТЕХТЗСВ) 
(PRINC "\п Полное сопротивление схемы $ = ") (PRINC 5))) 


(PRINC) ) 
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Комплекс функций для расчета элементов 
электрической схемы 


% $ 


aa 


ЖЖ rikiki kikik kkkkžšžkkkkkkkkkk 


KOMUIeEXC бункиий объектно-ориентированной системы для расчета 
резонансной частоты электрических схем переменного тока, 
зкпочающих резистосы, конденсаторы и катушки индуктивности. 
Результаты расчета: полное сопротивление и резонансная частота для 
злектоических схем переменного тока 
фл кАКХХКАККХХХХААХККХКАК КК ХХХхАХХХХХХ 
зедставление электрической цепи в виде вложенных функций, 
(SETQ CEP ‘ (POSL (В 1) (PARN ' ((РОЗЬ (R 100) (L 0.2)) 
j? 


(EA ОЕ в 3 }}} 
(POSL E1 E2) - функция оасчета сопротивления двух последовательно 
ссериневных элементов E1 и E2 


(248 El E2) - ыы :кция оасчета сопротивления двух параллельно 
сселизеных SIEM оз El mn E2 

(XO Z) - опоеделение WR значения комплексного числа 
(POSLN LN) - сункция расчета сопротивления последовательно 


соединенных злементов, описываемых в списке LN 

(РАЕМ LN) - сункция оасчета сопротивления параллельно 
соединённых элементов, описываемых в списке LN 

Сгисок может выглядеть так: '((К 100) (0.2) (C 1.0Е-6)) 
(3 СМ) - СУ=ЕЕЦИЯ ОПОелеления сопротивления резистора 

(L HEN) - сункция опоеделения сопротивления катушки 

(С FZR) - оукмия определения сопротивления конденсатора, 


где: ОМ - полное сопротивление, ом 

НЕМ - голное сопротивление индуктивности, генри 

FAR - пОЛНОСе сопротивление емкости, Фарады 

(REZONZNS PRIZN W DW) - функция для расчета резонансной частоты 
РЕТУМ - признак: 0 - расчет механической системы, 1 - электрической 


> + 
aa’ 


я - =Ачальная частота расчета, 1/С 

пи - приращение частоты, 1/С 

льтаты расчета: 

голосе согротивление электрической схемы в виде списка, 

хлючающего ны и мнимую части, например, 

0:39 19 -03389 

WO - A нная частота схемы (системы} 

ххххххх% ххх ххххххххххкххххкхххххххкххкхххххкхкххххххххххххХхАхХКХхХхХХ 


(DEFUN В (0М) ; определяет сопротивление резистора 


) 


(LIST OM 0) 


(DEFUN L (HEN) ; определяет сопротивление индуктивности 


(LIST 0 (* и НЕМ)) 


r 
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(DEFUN С (FAR) ; определяет сопротивление конденсатора. 
(LIST 0 (/ -1 (* W РАВ) }) 
(DEFUN POSL (21 22) ; определяет сопротивление цепи из двух 
; последовательно соединенных элементов 
(SETQ А (+ (NTH 0 71) (NTH 0 72)) 
В (+ (NTH 1 Z1) (NTH 1 72))) 
(LIST A B) 
) 
(DEFUN POSLN (LN) ; определяет сопротивление цепи из N 
; последовательно соединенных элементов 
(COND (( NULL LN) NIL) 
( (= (LENGTH LN) 1) (NTH 0 LN)) 
((= (LENGTH LN) 2) (POSL (EVAL (NTH 0 LN}) 
(EVAL (NTH 1 LN)))) 
(T (POSL (EVAL (NTH 0 LN)) (POSLN (CDR 1М) })} 


) 


(DEFUN KO (2) ; определяет обратное значение 
(SETQ А (NTH 0 2) ; комплексного числа Z (1/7) 
В. (МН 1 Z) 


SUM (+ (* AA) (*ВВ})) 
(LIST ГА SUM) (В (И a1 50) 
) 
(DEFUN PAR (71 72) ; определяет сопротивление цепи из двух 
; параллельно соединенных элементов 
(КО (POSL (КО 21) (KO 22)}) 
) 
(DEFUN PARN (LN) ; определяет сопротивление цепи из 
; № параллельно соединенных элементов 
(COND (( NULL LN) NIL) 
((= (LENGTH LN) 1) (NTH 0 LN)) 
( (= (LENGTH LN) 2) (PAR (EVAL (NTH 0 LN)) 
(EVAL (NTH 1 LN})))) 
(T (PAR (EVAL (NTH 0 LN)) (PARN (CDR LN} )})} 
) j 
(DEFUN REZONANS (PRIZN W DW) ; определяет резонансную частоту 
(SETQ S (EVAL СЕР) ) 
(COND ((< (NTH 1 S) 0} (SETQ ZN ’<)) 
((> (NTH 1 S) 0) (SETQ ZN ’>}) 
((= (NTH 1 S) 0) (SETQ ZN ’'=})) 
(WHILE ((EVAL ZN) (NTH 1 S) 0) ; цикл поиска оптимальной частоты 


=... 
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(ЗЕТОМ (+М М) } ; изменение частоты в цепи 
(SETQ S (EVAL СЕР))}) ; расчет электрической цепи 
(PRINC "\n\n Результаты расчета ") 
(PRINC "\п Собстзечная частота схемы, 1/С ИО =") (PRINC И) 
(ТЕ (= PRIZN 1) (PROGN (TEXTSCR) 
(PRINC "\п Полное сопротивление схемы $ = ") (PRINC 5))} 
hay K 


ть поедставим на следующем примере: 
| 1) (PARN ‘((РОЗЬ (R 100) (L 0.2)) 
a0E=6) (R _I0E6))])) 
0) ; Функция расчета резонансной частоты 
Для расчета полного сопротивления электрической схемы и резонанс- 
ной частоты необходимо создать файл, в котором находится вся исходная 
информация для расчета и описания электрической схемы. Назовем этот 
файл ЕСЕКТКК. Е ЗР. После загрузки файла в окно текстового редактора 
Visual LISP произведем запуск программы, щелкнув по кнопке Load active 
edit window (Загрузить текст активного окна редактирования). В окне 
консоли появятся результаты компиляции функций AutoLISP. Если npo- 
грамма набрана без ошибок, на экране появится сообщение о загрузке вы- 
ражений (форм). После подсказки консоли наберем схему электрической 
цепи и вызовем для выполнения функцию (REZONANS...) (рис. 5.4). 
После нажатия клавиши Enter (Ввод) начнется вычисление функций, 
и через некоторое время в окне консоли появятся результаты расчета 
(рис. 5.5). 
Результаты расчета будут представлены также и в текстовом окне редак- 
тора AutoCAD. 


в) Visual USP Console 


; 9 forms loaded from #<editor "“C:/ALISP/ELEKTRR.LSP"> = 

_$ (SETQ СЕР '(POSL (В 1) (PARN '((POSL (В 100) (L O. 2)) 
(C 1.0E-6) (R 10E6))))) 

(REZONANS 1 2000 1.0) 


g 
. i S ; E) u % 2 shea а 
p x ы р < e x в e 2 има r e ap o 
| i z 2“ a r, S ra oia a i лв тым в 
р FF P- 5 Pe F ">. Ta в > в’. аа и 
я Г . - к ев é ь в e =a è м а 
5 E , м ; р г 


Рис. 5.4. Окно консоли с сообщением о результатах зогрузки 
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`; 9 forms loaded from #<editor “C:/ALISP/ELEKTRR.LSP"> = 
$$ (SETQ СЕР '(POSL (R 1) (PARN '((POSL (R 160) (L 0.2)) 
| (С 1.0E-6) (В 19E6))))) 
(REZONANS 1 2600 1.0) a 
(POSL (R 1) (PARN (QUOTE ((POSL (R 100) (L 0.2)) (C 1.0e-006}) (R 1. 0e+007) >. 


Резупьтаты расчета 


Попное сопротивпение схены $ = (2001.55 -4ч.18592) 
Собственная частота схемы, 1/С WO = 2180.0 
$ | tu an + в я ы р м m r E y} и 


Рис. 5.5. Окно консоли с результатами расчета 


5.1.7. Основные этапы создания 
объектно-ориентированной подсистемы для расчета 
собственной частоты механической системы 


Рассмотрим теперь основные этапы создания объектно-ориентированной 
подсистемы для расчета собственной частоты механической системы. 

Ограничимся расчетом механических систем с конечным числом свобо- 
ды, линейных, автономных, стационарных, консервативных и диссипатив- 
ных, а также систем со свободными колебаниями. 


Постановка задачи 


Требуется создать объектно-ориентированную систему для описания 
и расчета механических систем любой сложности, состоящих из масс, уп- 
ругих элементов и демпферов. Расчетным параметром должна быть соб- 
ственная частота системы. 


Выявление основных особенностей, взаимосвязей 
и количественных закономерностей 


Все элементы механической системы, как базовые, так и комбинации A- 
зовых элементов, могут быть соединены последовательно, параллельно 
либо в разных комбинациях. 
Для решения задачи используем аналогии, при ко- 
торых физические процессы в оригинале и модели 
протекают по законам математического изоморфизма, 
то есть подчиняются одинаковым математическим за- 
конам, несмотря на то, что физическая природа про- М 
цессов может быть различной. В качестве модели ис- 
пользуем электрическую цепь переменного тока, Рис. 5.6. Механическая 
которую мы уже умеем рассчитывать. и 


210 — Создание объектно-ориентированных систем 


Примером послужит одна из самых распространенных механических 
систем — кабина лифта, подвешенная на стальных тросах (рис. 5.6). 

Кабина лифта массой М = 450 кг подвешена на канате. Длина каната L = 
16 м. Площадь поперечного сечения каната $ = 16 см”. Модуль упругости 
материала каната Е = 2*108 кг/см”. 

Данная система может совершать колебания в вертикальной плоскости 
относительно центра статического равновесия, вес троса не учитываем. 

Уравнение движения данной системы определяется уравнением д’Алам- 
бера: 


F +F =Оили М e +Kx=0 

где F. F — сила инерции от массы и сила упругости каната соответ- 
ственно: 

х — перемещение от центра статического равновесия; 

К - коэффициент жесткости упругого элемента. 

Моделью такой системы может служить электрическая схема, которая 
представляет собой электрическую цепь, имеющую катушку индуктивно- 
сти L и конденсатор С (рис. 5.7). 

На основании П закона Кирхгофа э.д.с. должна быть равна сумме паде- 
ний напряжений на элементах контура. 


Ч ве - 0 или LË, -0 


dt C a 
rae U, Сс - падение напряжения на 
катушке индуктивности и конденсаторе 
соответственно; | 


I — переменный ток, протекающий 
в контуре. 

t — время протекания процесса. 

Следует учитывать, что скорость измене- 
ния заряда конденсатора представляет собой 
ток, то есть 

_ ао di d'Q 


= WAM — 


dt dt dt 
Если сравнить математические модели MC- 
ханической системы и электрической цепи, _ 
можно увидеть, что уравнения математически Рис. 5.8. Механическая система, 
изоморфны. Следовательно, электрическая — моделирующая виброплощодку 


Рис. 5.7. Электрическая цепь, 
моделирующая лифт 
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цепь (рис. 5.7) является моделью-аналогом механической системы 
(рис. 5.6). При этом индуктивность [. является аналогом массы М, ем- 
кость C — коэффициента упругости 1/К, электрический ток Í — аналогом 
скорости 

У=4х/ 

В качестве другого примера рассмотрим вибрационную площадку 
(рис. 5.8). Сосредоточенная масса М, включающая корпус виброплощад- 
ки и вибрируемые изделия, опирается на пружины с коэффициентом 
жесткости K. В систему включены также жидкостные амортизаторы с KO- 
эффициентом вязкого трения B.. 

Данная система может совершать колебания в вертикальной плоскости 
относительно центра статического равновесия, и 

Движение данной системы определяется уравнением д’Аламбера: 

4х dx 

F +F, +Е =0 nm М, — 92 +В, те — +K x=0 

rae F, Fa Е, — сила инерции от массы, сила вязкого трения амортизато- 
ров и сила упругости пружин соответственно; 

X — перемещение от центра статического равновесия. 

Моделью такой системы может служить электрическая схема, которая 
представляет собой электрический контур, имеющий сопротизление В, 
катушку индуктивности L, и конденсатор С, с зарядом Q, (рис. 5.9). 


R1 L1 C1 


Рис. 5.9. Электрическая цепь, моделирующая виброплощадку 


На основании П закона Кирхгофа э.д.с. должна быть равна сумме nane- 
ний напряжений на элементах контура. 


КОЛЕНО: = - o umn L, S+R I+ - , 
t G` 
rae U, Up Чс - падение напряжения на катушке индуктивности, сопро- 
тивлении И конденсаторе, соответственно; 
I — переменный ток, протекающий в контуре; 
t — время протекания процесса. 
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Необходимо учитывать, что скорость изменения заряда конденсатора 
представляет собой ток, т.е. 


-Q _dI_ dQ, 


ии об, в $Q, Qo 
dt dt dt- dt- dt C, 


Если сравнить математические модели механической системы и элек- 
трической цепи, можно увидеть, что уравнения математически изоморф- 
ны. Следовательно, электрическая цепь (рис. 5.9) является моделыо-ана- 
логом механической системы (рис. 5.8). При этом индуктивность L, - 
аналог массы M. сопротивление R, — коэффициента вязкого трения B, 
емкость C, — аналог коэффициента упругости 1/К.. 

В силу изоморфности моделей механической системы и электрической 
цепи их можно исследовать на электрической модели, которую мы уже 
умеем рассчитывать. 


Разработка последовательности действий и комплекса 
функций для расчета элементов электрической схемы 


Для расчета колебательных механических систем с помощью электричес- 
ких схем необходимо выполнить следующие основные действия: 

e определить эквивалентную электрическую цепь; 

e определить параметры эквивалентных электрических элементов; 

e сделать расчет электрической схемы; 

e произвести пересчет результатов моделирования. 

На этапе определения эквивалентной электрической цепи моделируе- 
мая механическая система представляется в виде совокупности масс, уп- 
ругих элементов и демпферов, связанных друг с другом, как в моделируе- 
мой системе (см. рис. 2.6). 

Зная, что катушка индуктивности является аналогом массы, сопротив- 
ление - аналогом демпфера, а емкость — аналогом упругого элемента, MOX- 
но составить эквивалентную электрическую цепь. Пример такой эквива- 
лентной электрической цепи представлен на рис. 5.7. 

Параметры основных элементов электрической цепи определяются сле- 
дующим образом: 

° индуктивность катушки L, в генри (Г) равна массе М в кг; 

e емкость конденсатора С, в фарадах (Ф) равна обратной величине KO- 

эффициента жесткости 1/К в H/M; 

e сопротивление резистора R, в омах равно величине коэффициента 

вязкого трения В, в кг/с. 

Теперь определим резонансную частоту механической системы, представ- 
ленной на рис. 5.8. В ходе расчета необходимо определить эквивалентную 
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электрическую цепь (для механической системы, представленной на 
рис. 5.8, она уже определена и изображена на рис. 5.9), а также параметры 
эквивалентных электрических элементов. Параметры элементов электри- 
ческой схемы (рис. 5.9) вычисляются с учетом заранее определенных пе- 
реходных масштабов: 

индуктивность [.1 = 450 Гн; 

коэффициент жесткости для каната определяется по формуле: 

К, =Е* 5 /Г = 1*10' * 0,0016 / 18 = 888889,0 H/m 

где Е — модуль упругости каната, кг/м°; 

S — площадь сечения каната, M°. 

Тогда емкость C, будет равна: 

С, =1/К, =1/ 888889,0 = 1,125Е-06 Ф. 

Для расчета данной электрической схемы воспользуемся программой 
ELEKTRR.LSP, разработанной в предыдущем параграфе. 

Вначале создадим файл, в котором будет собрана вся исходная инфор- 
мация для расчета и представления электрической схемы-аналога. Назо- 
вем этот файл DIN1.LSP. Одновременно произведем загрузку объектно- 
ориентированной системы для расчета полного сопротивления и резо- 
нансной частоты электрической цепи (файл ELEKTRR.LSP). 

При использовании системы Visual LISP файл ELEKTRR.LSP может 
находиться в одном из текстовых окон интегрированной среды Visual LISP 
После успешного запуска функций из окиа текстового редактора (кнопка 
Load active edit window (Загрузить текст активного окна редактирова- 
ния) на экране появится сообщение о загрузке программы в окне консоли. 
В этом же окне необходимо ввести исходную информацию о системе. 


(SETQ M1 450.0 ; масса лифта B кг 
ГК 18.0 ; длина каната вм 
SK 1.6Е-03 ; площадь сечения каната в кв.м 
ЕК 1.0Е+10 ; модуль упругости каната, кг/кв.м 
К1 (/ (* ЕК SK) LK) ; жесткость каната, H/M 
L1 М1 ; индуктивность катушки, генри 
Ci (/ 1 K1) ; емкость конденсатора, фарады 


) 


Механическая система — лифт в виде эквивалентной электрической 
цепи — может быть представлена так: 


(SETQ СЕР ' (POSL (L L1) (С С1))) 
Затем обратимся к функции расчета резонансной частоты систем: 
(REZONANS 0 1 0.1) ; функция расчета резонансной частоты 


Результаты расчета резонансной частоты лифта представлены на рис. 5.10. 
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O Visual USP Consote O Пай 
'; 9 foras loaded from #<editor “C:/ALISP/ELEKTRR.LSP™> | 
8$ (SETQ PRIZN © ; @ - расчет неханической систены | 
MI 450.0  ; Macca пита в кг 7 
LK 18.6 ; дпина каната B H | 
SK 1.6Е-03 ; ппощадь сечения каната в кв. M | 
ЕК 1.8Е+18 ; нодупь упругости каната кг/кв. н 
KI (/ (* ЕК SK) LK) ; жесткость каната H/M 
LI MI ; индуктивность катушки, генри 


С1 (/ 1 KI) : емкость конденсатора, зхарады 


) 

(SETQ СЕР “(POSL (L L1) (C C1))) 
(REZONANS 68 1 6.1) 
1.125е-9686 

(POSL (L 11) (C С1)) 


Собственназ частота схены, 1/С WO =: 44.5 


_$ 


} v] 


Рис. 5.10. Результаты расчета pesonancHoñ частоты лифта 


Для расчета резонансной частоты виброплощадки необходимо создать 
файл, в котором будет находиться вся исходная информация для расчета 
и описания самой электрической схемы-аналога. Назовем этот файл 
DIN2.LSP. Одновременно следует произвести загрузку объектно-ориенти- 
рованной системы для расчета полного сопротивления и резонансной ча- 
стоты электрической цепи (файл ELEKTRR.LSP). 

При использовании системы Visual LISP файл ELEKTRR.LSP может 
находиться в одном из текстовых окон интегрированной среды Visual 
LISP. После успешного запуска функций из окна текстового редактора 
(кнопка Load active edit window (Загрузить текст активного окна penak- 
тирования)) на экране появится сообщение о загрузке программы в окне 
консоли. В этом же окне необходимо ввести исходную информацию о сис- 
теме, например, следующую: 


(SETQ 
МТ 459.0 ; масса машины в кг 
571 450.0 ; коэффициент вязкого трения, Н*С/м 
ЕЛ (/ БУ! (* 2 M1)) ; коэффициент демпфирования, 1/с 
NÍ £ ; число пружин 
*7/1 19 ; число витков в пружине 
ГУТ 0.017 ‚ диаметр витка пружины, M 
051 0:1 ; средний диаметр пружины, м 


; модуль сдвига материала, кг/кв.м 
(= №1 (= Dy1 01 DV1 БУТ) 651) 
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© \ виа! LISP Console 
$ | Ввод исходной информации по системе и расчет входных данных 


| (SETQ М1 456.6 ; Масса машины в кг 
BUI? 450.0 ; коэффициент вязкого трения, Нхс/н 
DE] (/ BUI (* 2 М1)) ; коэх. демпфирования, 1/с 
№ H ; чиспо пружин 
NUI 19 ; чиспо витков в пружине 
DUI 0.012 ; диаметр витка пружины, M 
DSI 0.1 ; средний диаметр пружины, н 


651 0.8Е+10 ; модупь сдвига натериапа кг/кв.м 
K1 (/ (* N1 (* DUI 041 DUI 091) 6$1) 
(* 8 М1 (> DS1 DS1 0$1))) ; KO3¢.xecTKOCTH пружин 


LI M1 ; индуктивность катушки, генри 
С1 (/1К!) ; емкость конденсатора, Фхарады 
R1 BUI) ; сопротивпение резистора, он 


(SETQ СЕР '(POSLN '((L L1) (С C1) (В R1)))) 
(REZONANS © 1 0.1) 

450.0 

(POSLN (QUOTE ((L L1) (C C1) (R R1)))) 


Pe3ynbTaTbi расчета 
Собственная частота схемы, 1/С WO = 4.3 >i 


< OE EE N ще ес имений [ФЕЯ 


Рис. 5.11. Результаты расчета резонансной частоты виброплощадки 
(* 8 №1 (* 051 DS1 105$1}}) ; коэффициент жесткости пружин 


L1 M1 ; индуктивность катушки, генри 
C7 LET ; емкость конденсатора, фарады 
R1 ВУ] } ; сопротивление резистора, ом 
(ЗЕТО СЕР ' (POSLN '((Г L1) (C C1) (R 81} }}} ; описание системы 
(REZONANS 010.1) ; вызов функции расчета резонансной частоты 


Расчет резонансной частоты виброплощадки представлен на рис. 5.11. 


5.2. Сетевое планирование и управление 
проектами 


Рассмотрим основные этапы создания системы сетевого планирования 
и управления проектами, включая создание параметрического изображе- 
ния сетевого графика и результатов расчета в различных режимах. Hay- 
нем с создания графического изображения сетевого графика. 


5.2.1. Постановка задачи 


Разработать комплекс функций для автоматизации создания парамет- 
рического изображения сетевого графика с заданным числом событий 
и работ. На сетевом графике должна быть представлена вся исходная ин- 
формация для расчета сетевого графика. Один из таких сетевых графиков 
изображен на рис. 5.12. 
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Рис. 5.12. Сетевой график выполнения проекта 


В комплексе функций должна быть предусмотрена возможность изме- 
нения размера поля для создания графического изображения сетевого гра- 
фика, размера кружочка, изображающего событие. 

Необходимая исходная информация запрашивается в диалоговом режи- 
меи вводится с клавиатуры компьютера. 


5.2.2. Разработка последовательности действий 
и комплекса функций параметрического изображения 
элементов сетевого графика 


Для создания параметрического изображения сетевого графика предва- 
рительно необходимо определить размер рисунка, число изображаемых 
на нем событий (кружочков), а также размер кружочка. Вся эта инфор- 
мация должна быть введена в диалоговом режиме. Высота текста может 
быть определена, например, как 0.3 от радиуса кружочка. Если информа- 
ция не вводится, используется значение по умолчанию. Обычно инфор- 
мация по умолчанию указывается в угловых скобках, например, <20> 
(SETQ ВН (GETPOINT "\n Введите размер рисунка, <280,210>: " ) 
NS (GETINT "\n Введите число событий, № = "} 
В (GETREAL "\п Введите радиус кружочка, <20>: "})} 
(SETVAR "СМБЕСЕО" 0) 
(IF (EQ BH NIL) (SETQ BH (LIST 280 210)}}) 
(IF (EQ P NIL) (SETQ R 20}} ; радиус кружочка по умолчанию 
(SETO H (*ВО0.3)) ; высота цифр на сетевом графике 
Если проанализировать рис. 5.12, на котором представлен сетевой гра- 
фик, можно заметить, что кружочки разделены на сектора и в верхнем 
указан номер события. 
Создание изображения кружочков в сетевом графике целесообразно 
оформить в виде цикла: 
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(SETQ КО ; определение номера события 
LS ”(}) ; список координат событий 
(REPEAT № ; цикл ввода координат событий 
(SETO К (+ 1 K}) ; определение номера вводимого события 


(ЗЕТУАК "СМОЕСНО" 1) 
(SETQ ТК (СЕТРОТМТ (5ТВСАТ "\п Введите координаты " 
(ТТОА К} "-го события в виде X,Y [можно мышкой] "})} 
(SETQ LS (CONS (LIST К ТВ) 15$} ) | | 
(ЗОВМ К) 
) 

При этом графическое изображение кружочка с секторами можно офор- 
мить в виде функции (ЗОВМ...): 

(DEFUN SOBN (М) ; функция изображения кружочка 
(ЗЕТУАВ "СМОЕСНО" 0) ‚; C разделением его на сектора 
(ЗЕТО ТМ (ТТОА М) 

ТТ (LIST (- (CAR TR) H) (+ (CAR (CDR TR)) НУ} 
(COMMAND "CIRCLE" TR R 
"LINE" TR (POLAR TR (* PI 0.25) R) "" 
"LINE" TR (POLAR TR (* PI 0.75) R) "" 
"LINE" TR (POLAR TR (* PI 1.25) R) "" 
"от" TR (POLAR TR (* PI 1:75) В) "7 
“TEXT” TT H “OTN ) ; ввод номера события 

) 

Исходя из логики выполнения проекта и наглядности его представления, 
пользователь определяет местоположения кружочков (событий) путем 
ввода соответствующих координат Х и У или с помощью мышки. Напри- 
мер, для события под номером 1 могут быть введены координаты: 30,100. 

Следующим шагом будет ввод на сетевом графике числа операций (ра- 
бот) и их изображение с указанием продолжительности выполнения каж- 
дой работы. При этом стрелки должны быть взаимосвязаны с расположе- 
нием кружочков (событий). Следовательно, для каждой работы (стрелки) 
определяют координаты события, из которого выходит работа, и коорди- 
наты события, в которое она входит, а также угол наклона стрелки и место 
изображения продолжительности выполнения работы. 

Ввод данных по работам целесообразно оформить в виде цикла. При этом 
указывается событие Í, из которого выходит работа, и событие J, в которое 
она входит, а затем указывается продолжительность этой работы TIJ: 

(SETQ NR (GETINT "\п Введите число работ в сети NR = ") 

M 0) 

(REPEAT NR 

(SETVAR "CMDECHO" 1} 
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(SETQ М (+M1) ; определяет номер вводимой работы 
TIJ (СЕТРОТМТ (STRCAT *\п Введите продолжительность " 
(ТТОХ М) "-ой работы в виде Т,‚У,Т: "})} 
(SETVAR "СМРЕСНО" 0) 
(SETO II (FIX (NTH 0 т) ] 
JJ (FIX (NTH 1 TIJ?) 
TRI (NTH 1 (ASSOC II LS)) 
TRJ (NTH 1 (ASSOC JJ LS) ) 
U (ANGLE TRI TRJ) 
UGR (* U (/ 180 PI)) 
D (DISTANCE TRI TRJ) 
TTT (POLAR TRI U (* D0.4)) 
RI (POLAR TRI U В) 
RJ (POLAR TRJ U (- 0 R}) 
291 (POLAR TRJ U (- 0 (* 0:5 R})) 
X (RTOS (NTH 2 TIJ) 2 0}) 
(COMMEND "LINE” TRI TRJ "" 
"PLINE" IRANL "W (7 R3) 17 R25) TRJ] T? 
"TEXT" TIT H UGR TX} 


—) E +] i] í! 


) 


В окончательном виде программа для создания в диалоговом режиме 
графического изображения сетевого графика представлена ниже. 


5.2.3. Комплекс функций параметрического 
изображения сетевого графика в диалоговом режиме 


&омилекс функций для создания в диалоговом режиме 
параметрического изображения сетевого графика 
ххххккххххккхкккхккхккххххккккхххккххххххххххххххххххххххххХхХхХхХххХхХхХхХхХхХхХхххк 
ЗЕТУАН “СМОЕСНО" 1) 
SETO ВН (СЕТРОТМТ "\n Введите размер рисунка, <280,210>: " ) 
NS (GETINT "\п Введите число событий, № = ") 
В (СЕТВЕЛЬ "\п Введите радиус кружочка, <20>: ")) 
(СЕТУАР “СМОЕСЕО" 0) 
(ТЕ (ЕО ЕН NIL) (SETQ ВН (LIST 280 210))) 
(ТЕ (ЕО В NIL) (SETQ R 20)) ; радиус кружочка по умолчанию 


(SETO H (* R 0.3) ] ; высота цифр на сетевом графике 
(DEFUN 5ОВМ (М) ; функция изображения кружочка 
({СЕТУАК "СМОЕСНО" 0) ; с разделением на секторы 


(SETQ ТМ (ТТОА N} 
TT (LIST (- (CAR ТВ} H) (+ (CAR (CDR ТВ)) Н))) 
(COMMAND "CIRCLE" TR R 
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"LINE". TR (POLAR TR (* РТ 0.25).В) "" 

"LINE" TR (POLAR TR (* PI 0.75) R) "" 

"СТМЕ" ТВ (POLAR ТК (* PI 1.25} В) "" 

SLINE S ТВ (РОЦАК ТВ (* РТ 1.75) В) "" 

"TEX TTT HAUS TN ; ввод номера события 
) 
(COMMAND "LIMITS" "0,0" BH "ZOOM" "A") 


(ЗЕТУАК "BLIPMODE”" 0) ‚; отключение маркеров 
(ЗЕТО КО ; определение номера события 
О ‚ список координат событий 
(ВЕРЕАТ № ; цикл ввода координат событий 
(SETQ К (+1К)}) 


(SETVAR "СМОЕСНО" 1) 
(SETQ TR (GETPOINT (STRCAT "\п Введите координаты " 
(ITOA К) "-го события B виде X,Y [можно мышкой] ")) 
) 
(ЗЕТО LS (CONS (LIST K TR) 15)) 
(SOBN K) ; вызов функции изображения кружочка (события) 
(SETQ МВ (GETINT "\п Введите число работ в сети NR = ") 
M 0) 
(REPEAT NR 
(SETVAR "CMDECHO" 1) 
(SETQ M (+ M1) , 
ТТУ (GETPOINT (STRCAT "\n Введите продолжительность " 
(ТТОА M) "-й работы в виде I,J, T "})) 
(ЗЕТУАВ "СМОЕСНО" 0) 
(SETQ II (FIX (NTH 0 TIJ}) 
JJ (FIX (NTH 1 TIJ)}) 
TRI (NTH 1 (ASSOC II LS}) 
TRJ (NTH 1 (ASSOC JJ LS} ) 
U (ANGLE TRI TRJ) 
UGR (* U (/ 180 PI}) 
D (DISTANCE TRI TRJ} 
TTT (POLAR TRI U (* D0.4)) 
TRI (POLAR TRI U R) 
TRJ (POLAR TRJ U (- 0 R}) 
TRJ LAPOLAR TRJ О (-0 {*0.58}}) 
x TX (RTOS (NTH 2 TIJ} 2 2}) 
(COMMAND "LINE" TRI TRJ1 "" 
"PHINE” TRJ1 WS (АВ 5) (У R25} TRJ "" 
"TEXT" TTT H UGR TX) 
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Для создания в диалоговом режиме графического изображения сетево- 
го графика достаточно обратиться к комплексу функций, созданных выше. 
Данный комплекс функций целесообразно сохранить в файле, например, 
SETRIS.LSP. Допустим, этот файл находится в папке (каталоге) ALISP на 
диске С:. 

После загрузки этого файла в командной строке AutoCAD 

Commang: (ОАО "С: /АЬТОР/СЕТВТ 5") 

оудет запрашиваться информация, необходимая для создания графическо- 
го изображения сетевого графика. В качестве примера возьмем сетевой гра- 
фик. представленный на рис. 5.12. На запросы в командной строке AutoCAD 
введем данные. представленные ниже в правой части запросов. Все запросы 
и данные по ним будут отражаться в текстовом окне AutoCAD (Shift+F2). 

Вводимые пользователем значения выделим жирным шрифтом. После 
введения значений по каждому запросу необходимо нажать клавишу Enter 
(Ввод). 

БЕедите зазмер оисунка, <280,210>: 

введите число событий, № = 6 

ците радиус коувочка, <20>: 

з=едите коосдинаты 1-го события: 20,100 
2-го события: 710,150 

элинаты 3-го события: 120,100 
4-го события: 170,50 

дите косодинаты 5-го события: 220,150 
==епита косодинаты 6-го события: 210,100 
число работ в сети Мк = 7 
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B 1,3 
ведите продолжительность 3-й работы в виде I,J,T : 1,4,9 
зелите грололжительность 4-й работы в виде I,J,T : 2,5,11.3 
ведите пгрололжительность 5-й работы в виде I, J,T : 3,5,25.7 
ведите гоодолкительность 6-й работы в виде Т,У,Т : 4,6,17.7 


=2дите гоодолжительность 71-й работы в виде I,J,T : 5,6,3.5 


Фрагмент введенных в диалоговом режиме данных для создания графи- 
ческого изображения сетевого графика представлен в текстовом окне 
AutoCAD (Shift+F2) на рис. 5.13. 

По мере ввода информации в строке запросов в поле чертежа будет по- 
являться графическое изображение сетевого графика, который в оконча- 
тельном виде будет выглядеть, как на рис. 5.12. 

А сейчас несколько усложним задачу. Допустим, мы имеем программу 
и результаты расчета этого же сетевого графика, однако получены они 
с применением другого языка программирования, например, Fortran. 
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(LOAD "С:/АГТ5Р/ЗЕТВТ5") 
Введите размер рисунка, <280,210>: 
Введите число событий, № = 6 
Введите радиус кружочка, <20>: 
Введите координаты 1-по события в виде X,Y [можно мышкой] 20,100 


Введите координаты 2-по события в виде X,Y [можно мышкой] 170,150 


Введите координаты 3-по события в виде X,Y [можно мышкой] 120,100 $ 
"| 


Рис. 5.13. Фрагмент введенных в текстовом окне AutoCAD данных для построения 
в диалоговом режиме изображения сетевого графика 


5.2.4. Разработка комплекса функций создания 
изображения сетевого графика по результатам расчета 
его на языке Fortran 


Предстоит разработать комплекс функций AutoLISP для создания графи- 
ческого изображения сетевого графика в среде AutoCAD по результатах 
рачета его на языке Fortran. Вся исходная информация вводится из выход- 
ного файла ЗЕТО.КЕЙХ — файла результатов расчета по программе 
ЗЕТО.ЕОК. 

В качестве примера используем сетевой график, представленный на 
рис. 5.14. 

Ниже приводятся программа расчета сетевого графика на языке 
FORTRAN и файл результатов расчета SETD.REZ. 


100 Format ( 
J" хххххххкхххххкхкххкккххххххххккккхккКкхккКхЖжХхХхХХХХКККХАХХККХХХХ ие 
/’ Расчет сетевого графика 
/’ Входные параметры: J 
/’М,М - число событий и работ в сети F 
/’ II, JJ - номер события, из которого выходит F 
/'и в который входит работа ‘| 
/’Т - продолжительность выполнения Т-й работы J) 
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Рис. 5.14. Сетевой график выполнения проекта 


101 Format ( 
L Выходные параметры: гу. 
/’ I-J - работа, выходящая из Т-го | У 7 
/’ события и входящая в J-e событие Si 
/’Т - поодолжительность выполнения Т-4-й работы '/ 
/’ RII - полный резерв воемени работы | F. 
/' RC - свободный оезерв времени работы J: 
/’ TIIE - поздний срок начала работы {ri 
/' ТРО - ранний срок окончания работы $ 
/’ ТР, TII - ранний и поздний сроки $ 
/’ наступления 94-го события y 
[' R - полный резерв времени события ыЕ. / 
/’ КР - события, лежащие на критическом пути A 


DIMENSION KP (29) RTI (99), ЕТ АЗ, Зы, 
t= RC(99) TP (29) TII(99) -R(99): X199} L99) жа о 

OPEN (5,FILE='SETD.DAN' ,STATUS='0LD') ; 
OPEN (6 ,FILE=*SETD. REZ’ , ЗТАТОЗ='Меи’) 
WRITE (6,100) 
WRITE (6,101) 
READ (5,20) M,N 
WRITE (6,20) M,N 

20 FORMAT (215,F5.1) 
DO 1 I=1,N 
READ (5,20) II(I),JJ(I),T(I) 
WRITE (6,20) II(I},JJ(I),T(I} 

21 FORMAT (215,6Е8.1) 

1 L(I)=0 
ТР{1)=0. 
DO 4 J=2,M 
TMAX=0. 
DO 5 K=1,N 


Сетевое планирование и управление проектами 223 


ТЕ (JJ(K).NE.J) GO ТО 5 
TP(J)=TP(II(K))+T{(K) 
IF (ТР(У).ЬЕ.ТМАХ) GO TO 5 
TMAX=TP (J) 
5 CONTINUE _ 
TP (J) =TMAX 
4 CONTINUE 
TII(M)=TP(M) 
DO 6 IP=2,M 
I=M-IP+1 
TMIN=100000. 
О 7 КЕ=1,М 
К=М-КЕ+1 
IF (II(K}.NE.I) Со? 
TII(I)=TII(JJ(K))-T(K) 
IF (TII(I).GE.TMIN}) GO TO 7 
TMIN=TII (I) 
7 CONTINUE 
TII(I)=TMIN 
6 CONTINUE 
DO 8 J=1,M 
8 R(J)=TII(J)-TP(J) 
WRITE (6,22) 
22 FORMAT (/' IJ T RII ВС TIIH TPO ’/) 
DO 10 K=1,N 
TETIK) 
J=JJ (K) 
TPO(K)=TP(I}+T(K) 
TIIH(K)=TII(J)-T(K) 
RII(K}=TII(J}-TP(I)-T(K) 
RC (K)=TP(J)-TP(I}-T(K)} 
WRITE (6,21) II(K),JJ{K),T(K),RII(K),RC(K), 
* TIIH(K)},TPO(K) 
. IF (ABS(R(I)-R(M}).GT..0001) GO TO 10 
IF (ABS{(R(J)-R(M)).GT..0001) GO TO 10 
IF (ABS(R(I)-R(J}}.GT..0001.0R. 
* ABS(TIIH(K)-TII(I)).GT..0001) GO TO 10 
L(K)=1 
10 CONTINUE 
WRITE (6,23) 
23 FORMAT (/' J TP TIIR '/) 
DO 9 J=1,M 
9 WRITE (6,24) J,TP(J),TII(J),R(J) 
24 FORMAT (4X,I5,3F8.1) 


tF 
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КР (1) =} 
КК=] 
DO 11 К=1,М 
I=II (К) 
J=JJ (K) 
ТРК] EO 0) COTO I1 
TE (IFNE.KP(Kx]} GO ТО 11 
КК=КК+1 
КР (КК) = 
1l CONTINUE 
WRITE (6,25) 
29 FORMAT (/’ Коитический путь’/) 
WRITE (6,26) (KP(I},I=1,KK) 
25 FORMAT (1514) 
STOP 
END 
Результаты расчета сохраняются в файле SETD.REZ в следующем виде: 
2асчет сетезого графика 
входные параметпы: 
M,N - число событий и работ в сети 
ТТ, JJ - комер события, из которого выходит 
и з который входит работа 
- продолжительность выполнения Т-й работы 
Выходные параметры: 
I-J - работа, выходящая из Т-го 
события и входящая в J-e событие 
T - продолжительность выполнения Т-/-й работы 
RII - полный резерв времени работы 
ВС - свободный резерв времени работы 
ТТТН - поздний срок начала работы 
ТРО - раений срок окончания работы 
ТР, ТТТ - ранний и поздний сроки 
наступления 4-го события 
В - полный резерв времени события 
КР - события, лежащие на критическом пути 
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Для создания графического изображения сетевого графика и результа- 
тов расчета необходимо определить размеры рисунка и кружочка. Всю эту 
информацию следует вводить в диалоговом режиме. Высота текста может 
быть определена, например, как 0.3 от радиуса кружочка. Если информа- 
ция не вводится, она принимается по умолчанию. Как правило, информа- 
ция по умолчанию указывается в угловых скобках, например, <20>. 

Определить размеры рисунка и кружочка, а также высоту цифр на сете- 
вом графике можно следующим образом: 

(ЗЕТУАВ "СМОЕСНО" 1) ; установка режима пиалога 
(SETQ BH (СЕТРОТМТ "\п Введите размер рисунка, <280,210>: " ) 

В (GETREAL "\п Введите радиус кружочка, <10>: ")) 
(ЗЕТУАВ "СМОЕСНО" 0) ‚ отключение эха команцп 


8 — 1278 
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(IF (EQ БН NIL) (SETQ ВН (LIST 280 210))) ; размер рисунка 


(ТР (EQ К NIL) (SETQ В 10)} ; радиус кружочка по 
‚ умолчанию 

(SETO H (* R 0.3)) ; высота цифр на сетевом 
; графике 


Следующий шаг — считывание необходимой информации из файла ре- 
зультатов расчета. Допустим, файл результатов расчета SETD.REZ нахо- 
дится на диске С: в папке (каталоге) ORGANIZA. Открываем файл резуль- 
татов расчета расчета: 


(SETO F (OPEN "C:\\JORGANIZA\\SETD-REZ" "r")) 


Считаем строки и сформируем из них списки. При этом строки (запи- 
си) с поясняющей информацией, а также пустые игнорируем. 


; Функция (E) для считквания строки и представления ее в виде списка: 
(DEFUN E 6 
(STRCAT "( " (READ-LINE F} " )") 
) 
; Сункция (EE) для пропуска поясняющих и пустых строк в файле 
; оезультатов расчета ЗЕТО. ВЕД: 
(DEFUN ES () 
(WHILE (NOT (МОМВЕКР (CAR (SETQ SS (READ (E)))))) (CHR 10}) 
| 


Считывание первой строки данных производится следующим образом: 


(EE) ; пропуск поясняющих и пустых строк 
(SETQ — NNR SS ; считывание первой строки файла 
; SETD. REZ 
NN (NTH 0 NNR?) ; определение числа событий 


(PRINC (ЗТЕСАТ " Число событий в сети - " (ТТОА ММ) )} 


Как уже отмечалось, кружочки на сетевом графике разделены на секто- 
ра с указанием номера события. 
_ Для создания графического изображения кружочка с секторами разра- 
ботаем функцию (ЗОВМ...): 


(DEFUN SOEN (М) ; функция изображения кружочка 
(ЗЕТУАВ "CMDECHO" 0} ; С разделением на сектора 
(SETQ ТМ (ТТОА N) 

ТТ (LIST (- (CAR ТВ) H} (+ (CAR (CDR TR)) Н)} 
) 
(COMMAND "CIRCLE" ТК К 
"I INE" TR (POLAR ТВ (* РТ 0.25) В} "" 
"ILINE” ТВ (POLAR TR (* PI 0.75) В) "" 
"ГТМЕ" ТВ (РОБАВ ТК (* РТ 1.25) R) =" 
LINES ТВ, (РОБАВ ТВ” РЕ 1958)" " 
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"ТЕХТ" ТТН "0" ТМ ) ; ввод номера события 
Местоположение событий согласно логике выполнения работ и нагляд- 
ности их представления пользователь сможет определить путем ввода со- 
ответствующих координат Х и У или с помощью мышки. 
(ЗЕТО К 0 1$ *())} 
(REPEAT NN ; цикл ввода координат событий 
(SETQ K (+1 K)) | 
(ЗЕТУАК "СМОЕСНО" 1) 
(SETQ TR (СЕТРОТМТ (STRCAT "\п Введите координаты " 
| (ТТОА К) "-го события X,Y [можно мышкой] "))) 
(SETQ LS (CONS (LIST К ТВ} 15) } ; список координат событий 
(ЗОВМ K) ; отображение события на экране 


) 
Ввод данных по работам целесообразно оформить в виде цикла: | 


(SETQ — МК (NTH 1 NNR) ; определение числа работ в сети 
LTR '()) 
(REPEAT NR ; ЦИкл изображения работ на экране 


(EE) 

(SETQ TIJ SS) 

(SETVAR "CMDECHO" 0) 

(SETO ТТ (FIX (NTH 0 TIJ}) 
JJ (FIX (NTH 1 TIJ}) 
TRI (NTH 1 (ASSOC II LS)}) 
TRJ (NTH 1 (ASSOC JJ LS) ) 
U (ANGLE TRI TRJ) 
UGR (* U (/ 180 PI)) 
D (DISTANCE TRI TRJ) 
TTT (POLAR TRI U (* D 0.4)) 
TRI (POLAR TRI U R) 
TRJ (POLAR TRJ U (- 0 R}) 
TRJ1 (POLAR TRJ U (- 0 (* 0.5 R}})}) 


считывание данных по работе 

; отключение эха команд 

; номер предшествующего события 
‚ номер последующего события 

‚ точка начала работы 

‚; точка окончания работы 

угол наклона работы в радианах 
; угол наклона работы в градусах 
длина стрелки (работы) 


"y = e ba] = `` i n в 


< 


TX (RTOS (NTH 2 TIJ) 2 0) ; длительность работы 
LE (LIST II JJ UGR TRI TRJ TTT) ; данные изображения работы 
LTR (CONS LE ГТВ)) ; список данных для 
; изображения работ 
(COMMAND "LINE" TRI TRJ1 "" ; изображение работы 
" PLINE”. TRJ1 "W" (/ В 5) (/ В 25} TRJ "" ; изображение стрелки 
"TEXT" ТТТ H UGR TX) ; изображение длительности 
; работы 


= 
Далее введем результаты расчета по работам и событиям, а также выпол- 
ним их графическое изображение на сетевом графике: 
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(ЗЕТУАВ "СМОЕСНО" 0) ; отмена режима диалога 

(SETQ LR '() LCC *(}} 

(REPEAT NR ; цикл ввода из файла результатов 
(ЕЕ) ; расчета по работам 


(SETQ LR (CONS SS ЦВ) ) 

) 

(SETQ LX (REVERSE [К)) 

(REPEAT NN ; цикл ввода из файла результатов 
(ЕЕ) ; расчета по событиям 
(SETQ LCC (CONS 958 LCC)) 

) 

(SETQ LCC (REVERSE LCC) ) 

(SETO МО) 


(FOREACH LC LCC ; цикл изображения на графике 
; результатов 
(ЗЕТО М (+ 1M) ; расчета по событиям 
TR (NTH 1 (ASSOC М 15) ) 
TTP (POLAR TR (* PI 1.1) (* R0.8)) ; точка изображения Tp 
ITII (POLAR TR (* PI 1.8) (*КО0.4)) ; точка изображения Trn 
TRP (POLAR TR (* PI 1.4} (*R0.6))) ; точка изображения Ri 


(COMMAND "TEXT" TTP H "0" (RTOS (NTH 2 LC) 2 0) 
"TEXT" ТЕН "0" (RTOS (NFR 1 LO) 20) 
"TEXT: TREH "0" (RTOS (NTH 3 LEC) 2 0)) 
) 
; цикл изображения результатов расчета по работам 
(FOREACH ЕЁ LR 


(SETO I (NTH 0 EL) ; начальный индекс работы (I - J) 
J (NTH 1 EL) ; конечный индекс работы (I - J) 
RIL (NTH"3 EL) ; полный резерв времени работы Ri 
ВС (NTH 4 EL) ; свободный резерв времени работы Вс 
TIIH (NTH 5 EL) ; поздний срок начала работы Тпн 
ТРО (NTH 6 EL) ; ранний срок окончания работы Тро 


) 
; цикл изображения результатов расчета по работе 

(FOREACH LE LTR 
(SETQ II (NTH 0 LE) 
JJ (NTH 1 LE) 


<: 


; начальный индекс работы (I - J) 
; конечный индекс работы (I - J) 


-. 


U (NTH 2 LE) ; угол наклона работы (I - J) 

TRI (NTH 3 LE) ; точка начала работы (I - 9) 

TRJ (NTH 4 ГЕ) ; точка конца работы 

ТТТ (МТН 5 LE) ; точка изображения длительности 
| ; работы 


TTIIH (RTOS TIIH 2 0) ; поздний срок начала работы Тпн 
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TTPO (RTOS TPO 2 0) ; ранний срок окончания работы Тро 
TRII (RTOS RII 2 0) ; полный резерв времени работы Кп 
TRC (RTOS RC 2 0) ; свободный резерв времени работы Вс 


ТВ (STRCAT TRII "/" ТВС) ; изображение резервов Вп/Кс 


(ТР (AND (ЕО I ТТ) (EQ J JJ)) 


(COMMAND 
"TEXT" TRI HK U°TTLIH ; изображение Тпн 
"TEXT" (POLAR TRJ РТ (* 2Н))} H U TTPO ; изображение Тро 


"TEXT" (POLAR ТТТ (* PI 1.5} {*1.5Н)) НО TR))) ; ВП/Вс 
) 
Теперь введем информацию по критическому пути и H30Ő6pa3HM крити- 
ческий путь на графике утолщенной линией: 


(EE) ` ; считывание из файла результатов расчета критического пути 
(SETO К 55 
N 1) 
(FOREACH EK LK цикл изображения критического 
(SETQ L1 (LIST ЕК (NTH N LK))) ; пути утолщенной линией 
(SETQ N (+ 1N)) 
(FOREACH LE LTR 
(SETQ II (NTH 0 LE) ; начальный индекс работы (I - J) 
JJ (NTH 1 LE) конечный индекс работы (I - J) 
TRI (NTH 3 LE) точка начала работы (I - J) 


kak 


» a 


TRJ (NTH 4 LE) ; точка конца работы (I - J) 
L2 (LIST II JJ})) ; список работ {I -J) 
(IF (EQUAL L1 L2) ; условие изображения критического пути 


(COMMAND "PLINE" TRI "W" (/ R 10} (/ R 10) TRJ ""))) 
) 


5.2.5. Комплекс функций создания изображения 
сетевого графика по результатам расчета его 
на языке Fortran 


. ХХХ ХХХкКХХХкКХкКкКХХхКХк ХХХ ХХХАХКХКХХХКККХ 
f 


; Комплекс функций для создания изображения сетевого графика по 
; результатам расчета его на языке Fortran 
| ххх КХККАХКХХХКХХХХАХХХ 
(ЗЕТУАВ "СМОЕСНО" 1) ; установка режима диалога 
(SETQ BH (СЕТРОТМТ "\п Введите размер рисунка, <280,210>: " } 
В (СЕТВЕАГ “\п Введите радиус кружочка, <10>: ")) 
(ЗЕТУАВ "СМОЕСНО" 0) ; отключение эха команд 
(ТЕ (ЕО ВН NIL) (SETQ ВН (LIST 280 210}}) ; размер рисунка 
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(IF (EQ R NIL) (SETQ R 10)) ; радиус кружочка по умолчанию 
(SETQ H (* R 0.3)) ; высота цифр на сетевом графике 
; Пример обращения к файлу результатов расчета показан ниже 
(SETQ Е (OPEN "С:\\ОВСАМТРА\\ЗЕТО. ВЕ?" "г")) 
; Создание функции (E) для считывания строки в виде списка 
(DEFUN Е () (STRCAT "( " (READ-LINE Е) " }")) 
; Создание функции (ЕЁ) для пропуска поясняющих и пустых о 
; строк в файле результатов расчета SETD. REZ 
(DEFUN ЕЕ (} | 

(WEILE (МОТ (МОМВЕВР (CAR (SETQ SS (READ (Е)})))} (CHR 10)) 
) 


(ЕЕ) ; пропуск поясняющих и пустых строк 

(SETQ NNR SS ; считывание первой строки файла SETD.REZ 
NN (NTH 0 NNR}) ; определение числа событий 

(PRINC (STRCAT " Число событий в сети - " (ТТОА NN))) 

(DEFUN СОВМ (М) ; функция изображения события 


(ЗЕТУАВ "СМОЕСНО" 0) 
(SETQ ТМ (ТТОА М) 

TT (LEST (~ ПОТЕ: (0 9Н}) (8 (NTH ITR) тон 
(COMMAND "CIRCLE" TR R) ; отображение события кружочком 
(COMMAND ; разделение кружочка на сектора 

"LINE" TR (POLAR TR (* РТ 0.25} В) "" 

"LINE"! TR (POLAR ТВ (* PIL 0.75) RT" 

"LINE" TR (POLAR TR (* PI 1:25) R} "" 

"LINE" TR (POLAR TR (* PI 1.75) R) "" 

"TEXT" TL H "0S TN) ; отображение номера события 
) 
(COMMAND "LIMITS" "0,0" BH "ZOOM" "A") 


(SETVAR "ВЫТРМОПЕ" 0) ; отключение маркеров 
(ЗЕТО К 015 '(}) 
(REPEAT ММ ; цикл ввода координат событий 


(SETQ K (+1К)) 
(SETVAR "CMDECHO"” 1) 
(SETO TR (GETPOINT (STRCAT "\п Введите координаты " 
(ТТОА K) "-ro события X,Y [можно мышкой] "))) 
(SETQ LS (CONS (LIST К ТВ) 15)) ; список координат событий 


(СОВМ К) ; отображение события на экране 
) 
(SETQ NR (NTH 1 NNR) ; определение числа работ в сети 
LTR '(}} 
(REPEAT NR ; цикл отображения работ на экране 
(EE) 


(ЗЕТО TIJ SS) | | ; считывание данных по работе 
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{ЗЕТУАВ "СМОЕСНО" 0) ; отключение эха команд 
(SETQ II (FIX (NTH 0 TIJ}) ; номер предшествующего события 

JJ (FIX (NTH 1 TIJ)) ; номер последующего события 


TRI (NTH 1 (ASSOC II 15}) ; точка начала работы 
TRJ (NTH 1 (ASSOC JJ LS})}) ; точка конца работы 


U (ANGLE TRI TRJ) ; угол наклона работы B радианах 
UGR (* U (/ 180 РТ)} ; угол наклона работы в градусах 
р (DISTANCE ТЕТ TRJ) ; длина стрелки (работы) 


ТТТ (POLAR TRI U (* D 0.4}) 
TRI (POLAR TRI U R) 


TRJ (POLAR TRJ U (- 0 R)) «: 
TRJ1 (POLAR TRJ U (-0 (* 0.5 R)})) 
ТХ (RTOSJ(NTH-2 TIJ)-2 0) ; длительность работы 
LE (LIST II JJ UGR TRI TRJ TTT) ; данные, изображающие работу 
LTR (CONS LE БТК} ) ; данные для изображения работ 
(COMMAND "LINE" TRI TRJ1 "" ; отображение работы 
"РЫТМЕ" TRJ1 "И" (/ R5) (Z В 25} TRJ "" ; изображение стрелки 
"TEXTA TILH UGR TX) ; изображение длительности работы 
} 
(ЗЕТУАК "СМОЕСНО" 0) ; отмена режима диалога 
(SETO LRS) LCC. {)) | 
(REPEAT NR ; цикл ввода из файла результатов 
(ЕЕ) ; расчета по работам 


(SETQ LR {CONS SS LR)) 
} 
(SETQ LR (REVERSE ЁВ)) 
(REPEAT NN ; цикл ввода из файла результатов 
(EE) ; расчета по событиям 
(SETO ГСС: (CONS SS LCC))) 
(SETQ LCC (REVERSE LCC) 


МО) 
(FOREACH LC LCC ‚; цикл отображения результатов 
(ЗЕТО М (+1М) ; расчета по событиям 
ТВ (NTH 1 (ASSOC М 15) ) 
TTP (POLAR TR (* PI 1.1} (* R 0.8) ] ; точка изображения Тр 
TTII {POLAR ТВ (* РТ 1.8} (* R0.4)) ; точка изображения TN 
ТЕР (POLAR TR (* РТ 1.4) (*ВО0.6)}} ; точка изображения Вп 


(COMMAND "TEXT" TTP H "0" (RTOS (NTH 2 LC) 20) 
"TEXT TTII H "012 (ВОН 1 LE} 2 0) 
"TEXT/#TRP-H "0"^ (RTOS (NTH 3 LC} 20)}} 
) 
(FOREACH EL LR ; цикл ввода результатов расчета по работам 
(ЗЕТО I (NTH 0 EL) ; начальный индекс работы (I - J) 
J (NTH 1 EL) ; конечный индекс работы (I - J) 


-= = wibi 
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RII (NTH 3 EL) ; полный резерв времени работы Rn 
ВС (NTH 4 EL) ; свободный резерв времени работы Вс 
ТЕН (NTH 5 EL) ; поздний срок начала работы Тпн - 
ТРО (NTH 6 EL) ; ранний срок окончания работы Тро 
) 
(FOREACH LE LTR ; цикл ввода результатов расчета по работе 


(SETQ II (NTH 0 LE) 
JJ (NTH 1 LE) 


; начальный индекс работы (I - J) 
; конечный индекс работы (I - J) 


- 


> 


U (NTH 2 LE) ; угол наклона работы (I - J) 

TRI (NTH 3 LE) ; точка начала работы (I - J) 

TRJ (МТНа LE) ; точка конца работы 

TIT (NIN 5 LE) ; точка отображения длительности работы 
ТТТТН (RTOS TIIH 2 0} ; поздний срок начала работы Тпн 

TTPO (RTOS ТРО 2 0) ; ранний срок окончания работы Тро 

TRII (RITOS RII 2 0) ; полный резерв времени работы Ri 

T36 (RIOS RC 2 0) ; свободный резерв времени работы Вс 


TR (СТВСАТ TRII "/" TRC) ; отображение резервов в виде Вп/Вс 


о aii 


(ТР (AND (ЕО T II) (EQ J JJ}) 
(COMMEND 
"TEXT" TRI H U TTIIH ; отображение Тан 
"TEXT" {POLAR TRJ PI (* 2-H)) НО TTPO ; отображение Tpo 


NEXT" (POPER TTT (* РГ 1,6} (1.5) H U TRIN RRE 


ERI 
SETO LK SS ; считывание из файла результатов 
№1) ; расчета критического пути 
(FOREACH ЕК LK ; цикл отображения критического 
(SETQ L1 (LIST ЕК (NTH N LK}); пути утолщенной линией 
W INI) 
(FOREACH LE LTR 
(SETQ II (NTH 0 LE) ; начальный индекс работы (I - J) 
dJ (NDT ВЕ) ; конечный индекс работы (I - J) 
TRI (NTH 3 LE) ; Точка начала работы (I - J) 
TRJ (NTH 4 LE) ; точка окончания работы (I - J) 
L2 (LIST IL JJ)? ; список работ (I - J) 
(IF (EQUAL L1 L2) ; условие отображения критического пути 
(COMMAND "PLINE" ТЕТ "И" (/ R 10) (/ R 10) ТВ ""))) 
) 
(CLOSE F) 


После загрузки и выполнения комплекса функций из файла SET- 
DFOR.LSP на экране будет формироваться изображение сетевого графи- 
ка. В окончательном виде сетевой график выполнения проекта представ- 
лен на рис. 5.15. 
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Рис. 5.15. Сетевой график выполнения проекта 


5.3. Разработка экспертной системы 


Экспертные системы относятся к числу интеллектуальных вычислительных 
систем и предназначены для моделирования или имитации поведения опыт- 
ных специалистов-экспертов при решении какого-либо узкого вопроса. 

Экспертные системы позволяют накапливать, систематизировать и со- 
хранять знания и профессиональный опыт специалистов высокой ква- 
лификации, занятых в первую очередь в тех областях, где задачи и их 
решения формализованы слабо или совсем неформализованы (неструкту- 
рированы), например, в машиностроении, экономике, вычислительной 
технике, медицине и др. 

Таким образом, экспертная система представляет собой программный 
комплекс, обеспечивающий накопление, хранение, обповление и возмож- 
ность использования специально подготовленных композиций знаний. 

Структурно экспертная система состоит из трех основных частей: ин- 
терфейса, механизма вывода и базы знаний (рис. 5.16). 

Интерфейс — это некоторая подсистема, язык взаимодействия пользо- 
вателя с машиной, экспертной системой на ограниченном естественном 
языке или на специфическом искусственном языке, используемом в дан- 
ной предметной области. 

Механизм вывода представляет собой комплекс программ, который 
использует базу знаний, факты, гипотезы, учитывает запросы пользова- 
теля и тем самым позволяет решать поставленные задачи. В механизмах 
вывода используются несколько стратегий вывода (то есть переходов от 
одного правила к другому) —- прямой, обратный и комбинированный. 

База знаний — это совокупность фактов и знаний из той или нной обла- 
сти, определенным образом представленных в программном виде пользо- 
вателями, экспертами и инженерами знаний. База знаний содержит два 
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Программное обеспечение 


Инженер 


Интерфейс _ „ Механизм _» База знаний 


вывода знаний 


Рис. 5.16. Упрощенная схема функционирования экспертной системы 


основных элемента: факты (данные) из предметной области и специаль- 
ные эвристики или правила, которые управляют использованием фактов 
при решении проблем. 

Качество заключений, выводов, рекомендаций, получаемых с помощью 
той или иной экспертной системы, определяется по способу представления 
знаний, объему базы знаний и мощности используемой машины вывода. 

Сложность и многообразие структур знаний вызвали к жизни несколь- 
ко различных способов их представления, из которых следует выделить 
логическое исчисление, фреймовые и продукционные системы, семанти- 
ческие сети. Каждый способ представления знаний имеет свои достоин- 
ства и недостатки. 

Логическое исчисление основано на представлении знаний с помощью 
предикатов и применении к ним формальных методов вывода, например, 
метода резолюций и др. Предикат представляет собой отношение между 
объектами. Например, предикат Брат (Петя, Витя) означает, что Петя -— 
брат Вити. В скобках указаны объекты, к которым применяется данный 
предикат (отношение) Брат. 

Такая форма представления знаний нашла широкое применение в язы- 
ке логического программирования PROLOG. 

Фреимовая система основана на представлении знаний в виде опреде- 
ленных структур, называемых фреймами. 

Основу семантических сетеи составляет представление знаний в виде 
ориентированного графа с размеченными вершинами и дугами. Вершинам 
соответствуют объекты или ситуации, а дугам — отношения между ними 
(рис. 5.17). 

Представление знаний в такой форме более наглядно и понятно. Семан- 
тические сети адекватно отражают взаимосвязь объектов. 


Брат 


Рис. 5:17. Схема представления знаний в семантической сети 
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Продукционные системы основаны на представлении знаний в виде CO- 
вокупности условий и выводов. Если выполняются определенные усло- 
вия, то будет такой-то результат, вывод. Например, если Петя - сын дяди 
Миши и Витя — сын того же дяди Миши, то Петя — брат Вити. 

Рассмотрим основные этапы разработки простейшей экспертной сис- 
темы. 


5.3.1. Постановка задачи 


Следует разработать комплекс функций AutoLISP простейшей экспертной 
системы. Представление знаний обеспечивается с помощью продукционной 
системы, использующей представление знаний (правил) в виде: если — то. 


5.3.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


В качестве стратегий вывода результата используют прямой, обратный 
H комбинированный выводы (стратегии). 

При прямом выводе отправной точкой служит известный начальный на- 
бор фактов. С учетом его и базы правил методом прямого сравнения име- 
ющихся фактов и условий осуществляется поиск результата. 

При обратном выводе отправным 
моментом служит список предполага- 
емых результатов (выводов, заключе- 


ний, действий), которым в конечном 


счете ставится в соответствие множе- 1 Если F3 n F4 то F6 
Si 2 Если F6 n F2 то Е9 | 

ство фактов (условий), делающих их 3 Если Fiofa | 
правомочными. F4 

Совместное их использование воз- 
можно путем определенного чередо- j 
вания. 

Рассмотрим стратегию прямого вы- | 1Если F3 и F4 то F6 
вода. Имеются несколько фактов. А 


Обозначим их F1, F2, F3, F5, F7, F8. 


F6 
Допустим, существует несколько 
правил. Представим их, как на рис. 3.18. 


Эти правила -представляют базу 


знаний. Чтобы найти результат Е9, 1 Если F3 и F4 то Еб 
E 2 Если F6 n F2 то F9 
механизм вывода сравнивает началь |l 3 Если F1 +0 F4 


ный набор фактов (F1 F2 F3 F5 F7 F8) 
с фактами, содержащимися в базе 3Ha- 
ний в правилах, изложенных в виде 


F9 


Рис. 5.18. Правила выбора результата 
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условий. Используя правило под номером 3 в базе знаний, список фактов 
можно расширить. 

Правило 3 гласит: если мы имеем факт F1, получим вывод (результат) 
F4, который вносится в расширенный список фактов. Механизм вывода 
снова сравнивает, но уже расширенный список фактов (F1 F2 F3 F4 F5 F7 
FS) с фактами, содержащимися в базе знаний в правилах, представленных 
в виде условий. В данном случае согласно правилу под номером 1 в спи- 
сок фактов добавляется факт Еб. На следующем этапе в соответствии 
с правилом 2 получим искомый результат — факт F9. 


5.3.3. Разработка последовательности действий 
и комплекса функций для создания экспертной системы 


Рассмотрим простейшую экспертную систему, с помощью которой по име- 
ющимся фактам можно определить неисправности в двигателе. 

Создадим тестовый файл ЕКЗРЕКТ.РАМ, в котором собраны известные 
начальные факты O неисправностях в двигателе. Допустим, этот файл Ha- 
ходится на диске С: в папке (каталоге) VLAutoLISP и в файле имеются 
следующие факты, которые вводятся как строковые константы с началь- 
ной пустой строкой: 


"Слабая искра на свечах" 


"Слабо вражается коленвал" 
* 


Для ввода фактов в виде списка в экспертную систему откроем файл 
данных (фактов) и создадим на AutoLISP функцию (ВЕАПЕ..) для счи- 
тывания начальных фактов, вывода их на экран и в файл результатов: 


; Открытие файла данных EKSPERT.DAN для считывания фактов 
(ЗЕТО FD (OPEN "C:\\VLAutoLISP\\EKSPERT.DAN"” "r")) 
; Создакие Фунации для считывания строки в виде списка 
(DEFUN READL (FF) 
(STAAT "{ ~ (READ=LINE РЕ) " })")) 
; Открытие Файла EKSPERT.DOC для записи фактов и результатов 
(SETO FW (OPEN "С: \\УБАЧЕОБТЗР\ \ЕКЗРЕКТ.0ОС" "а"}) 
(DEFUN ВЕАОЕ ( / Z) ; считывание фактов из файла данных 
(SETQ FAKTI *()) 
(HILE (NOT (EQ (SETQ Z (READ (READL FD))) NIL)) 
(SETO FAKTI (CONS Z FAKTI))) 
(PRINC "\n " FW) 
(PRINC "\n ") 
(PRINC FÆKTI) 
(PRINC РАКТТ FW) 
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Начальные факты можно ввести и в диалоговом режиме, используя. 
функцию (СЕТУТЕИМС...), которая запрашивает у пользователя строко- 
вую константу и возвращает ее. 


(DEFUN READD { / 2) ; считывание фактов в диалоговом режиме 
(SETO FAKTI '()) 
(PRINC "\п Введите факты в кавычках на отдельных строках"} 
(PRINC "\п для завершения нажмите клавишу Enter") (PRINC "\п ")} 
(WHILE (МОТ (EQUAL (SETQ 2 (READ (STRCAT "( " (READ-LINE) 

")"))} NEDI 
(ЗЕТО FAKTI (CONS Z FAKTI) )) 

(PRINC "\n " FW) 
(PRINC FAKTI FW) 

) 

Далее создадим текстовый файл правил (знаний) EKSPERT.PRA, B KO- 
тором будут находиться правила, сформулированные неким экспертом. 
Этот файл часто называют базой знаний. В нашем примере файл может 
выглядеть следующим образом (с пустой строкой в конце): 


1 (“нет искры на свечах") ("двигатель не запускается") 
("плохое соединение проводов"} ("малый ток в первичной кз") 
("малый ток в первичной кз") (“малый ток во вторичной кз") 
("малый ток во вторичной кз") ("слабая искра на свечах") 
("слабая искра на свечах") ("плохой аккумулятор") 

("плохой аккумулятор") ("малый ток в первичной кз") 

("слабо вращается колен вал") ("плохой аккумулятор") 
("пробит конденсатор") ("нет тока в первичной кз") 

("нет тока в первичной кз") ("нет тока во вторичной K3") 

10 (“нет тока во вторичной кз") ("нет искры на свечах") 


Первый элемент в строке указывает на номер правила, последний — на 
получаемый вывод (результат). Все элементы строки между первым и по- 
следним — это условия, при которых может быть получен результат. Так, npa- 
вило под номером 1 означает следующее: если нет искры на свечах, двигатель 
не запускается. Здесь применена упрощенная схема представления правила. 

Для ввода правил в виде списка в экспертную систему откроем файл 
правил (знаний) и создадим на AutoLISP функцию (ВЕАЮР...) для cun- 
тывания базы знаний: 

; Открытие файла знаний ЕКЗРЕКТ.РКА для считывания правил 
(ЗЕТО ЕР (OPEN "С: \\УБГАЧЕОБТЗР\ \ЕКЗРЕКТ.РКА" "r")) 
(DEFUN READP {/ Z) ; считывание гравил из файла EKSPERT.PRA 
(SETQ BAZA '()) 
(WHILE (NOT (EQ (SETQ Z (READ (READL FP))) NIL)) 
(SETQ BAZA (CONS 2 BAZA))) 
(SETQ BAZA (REVERSE BAZA))) 


о O s ADAAN B U NY 
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Для поиска искомого ответа по имеющимся фактам при наличии соот- 
ветствующей базы знаний создадим на AutoLISP функцию (EKSPERT...), 
которая должна отражать начальные факты и результаты работы эксперт- 
ной системы на экране и в файле EKSPERT.REZ: 


(DEFUN EKSPERT {BAZA) ; функция поиска вывода 
(PRINC "\п\п КОММЕНТАРИЙ: ") 
(PRINC "\п Результаты работы экспертной системы выводятся ") 
(PRINC "\n на экган и в файл EKSPERT.DOC") 
(PRINC "\п\п Начальные факты в файле EKSPERT.DAN: ” FW) 
(PRINC "\п\п Бачальные факты в файле ЕКЗРЕКТ.ПАМ: " ) 
(БЕЛОЕ ; считывание из файла данных начальных фактов 
(READP) ; считывание из файла знаний правил 
(PRINC "inn 2№ЗУЛЬТАТЫЬ. ") 
(FOREACH PR BAZA ; цикл просмотра правила 
; в базе знаний 


(SETQ USL (CDR (REVERSE (CDR PR))))  ; выделение условий 


(COND ((PODMNOJ USL FAKTI) ; если условие выполнено - поиск: 
(SETQ У (LAST РВ) ; выделение вывода (результата) 
N? (CAR РВ} ) ; определение номера правила 


(PRINC (STRCAT "\п Согласно правилу " (ТТОА МР) " из " 

"Сазы знаний ЕКОРЕКТ.РКА ответ: ") FW) 
(2ЕТ№С (CR V) FW) ; распечатка вывода B ERA результатов 
(PRINC (ЭТЕСАТ "\п Согласно правилу " (ТТОА МР} " Е 


"базы знаний ЕКОРЕКТ.РВА ответ: \п" } } 


(PRINC (САВУ)) ; распечатка вывода на экран 
(SETQ FAKTI (CONS У FAKTI )}); ввод вывода в список фактов 
(T ЕАКТТ))) 


(PRINC "A KOHE NLNU”) (РВ) 
) 


В функции (EKSPERT...) используются две вспомогательные функции 
(РЕКММ...) и (PODMNOJ...) для определения пересечения двух MHO- 
жеств элементов в списках Х, У и проверки вхождения множества элемен- 
тов списка Х в множество элементов списка У соответственно: 

(DEFUN РЕВММ (ХУ) ; Функция пересечения множеств X n Y 
(COND ((NULL X) NIL) 


( (MEMBER (CAR X) Y) (CONS (CAR X) (PERMN (CDR X) У))) 
(T (PERMI (CDRX)-Y))) 


(DEFUN PODMNOJ (X Y) ; Функция проверки вхождения множества X B Y 
(EQUAL X (РЕВММ X Y)) 
| 

В окончательном виде простейшая экспертная система со стратегией 
прямого вывода будет выглядеть следующим образом. 
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5.3.4. Комплекс функций для создания 
экспертной системы 


. kkkkkkkžěkkkkkkkkkkkkkkkkkkkkkkůákřkkkkkkkkkkžkkkkkkkkkkkkkkkkkkkkkkk* 
; 


; Простейшая экспертная система со стратегией прямого вывода 
; ххххкхххххкххкхкхкххкхкккххххххкхкхххкхкххкхкххкхкхкххХкХхХхкКхяХХХХХхХхХхХкХхХ 
; Открытие файла данных ЕКЗРЕКТ.ПАМ для считывания фактов. 
(SETQ FD (OPEN "С: \\УГАОТОБТЗР\ \ЕКОРЕКТ.ОАМ" "r")) 
; Открытие файла знаний EKSPERT.PRA для считывания правил 
(SETQ ЕР (OPEN "С: \\УБГАОТОЬТЗР\ \ЕКЗРЕКТ.РВА " "г")) +: 
; Открытие файла EKSPERT.DOC для записи фактов и результатов 
(SETQ РИ (OPEN "C:\\VLAUTOLISP\\EKSPERT.DOC" "а")) 
(TEXTSCR) 
; Создание функции для считывания строки B виде списка 
(DEFUN READL (ЕЕ) (ЗТВСАТ "( " (ВЕАБ-ЬТМЕ ЕЁ) " )")) 
(DEFUN READF ( / 2) ; считывание фактов из файла данных 
(SETQ FAKTI '()) 
(WHILE (МОТ (ЕО (SETQ Z (READ (READL FD))) NIL)) 
(SETQ FAKTI (CONS Z FAKTI))) 
(PRINC "\п " FW) (PRINC "\n ") (PRINC FAKTI) (PRINC FAKTI FW) 
) 
(DEFUN READP { / Z) ; считывание правил из файла EKSPERTI .РКА 
(SETQ BAZA '()) 
(WHILE (NOT (ЕО (SETỌ Z (READ (READL FP))}) NIL)) 
(SETQ BAZA (CONS Z BAZA} )) 
(SETQ BAZA (REVERSE BAZA)) 
) 
(DEFUN PERMN (X Y) ; функция пересечения множеств X n Y 
(COND { (NULL X) NIL) 
( (MEMBER (CAR X) Y) (CONS {CAR X) (PERMN (CDR X) Y))) 
(T (PERMN (CDR X) У) }} 
) 
(DEFUN PODMNOJ (PODMN MNOJ) 
(EQUAL PODMN (РЕВММ PODMN MNOJ)) 
) 
(DEFUN EKSPERT (BAZA) ; функция поиска вывода 
(PRINC "\п\п КОММЕНТАРИЙ: ") 
(PRINC "\п Результаты работы экспертной системы выводятся ") 
(PRINC "\п на экран и в файл EKSPERT.DOC") 
(PRINC "\п\п Начальные факты в файле ЕКЗРЕКТ.РАМ: " FW) 
(PRINC "\п\п Начальные факты в файле ЕКЗРЕКТ.ПАМ: " ) 
(READF) ; считывание из файла данных 
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; начальных фактов 


(READP ; считывание из файла 


вали. 2 ан 


О: y 
|! 
С) 


(С: 


(Ci 


; знаний правил 
РИ ли ВЕЗУЛЬТАТЫ; ") 


CREACH PR BAZA ; цикл просмотра правила в базе знаний 

(SETQ USL (CDR (REVERSE (CDR PR))))  ; выделение условий 

(COND ({((PFODMNOJ USL FAKTI) ; если условие выполнено - поиск 

Зо V (LEST PR) ; выделение вывода (результата} 
№2 (CAR PR)) ; определение номера правила 

(PRINC (STRCAT "\п Согласно правилу " (ТТОА МР) " из " 

"Gaza знаний ЕКОРЕКТ.РКА ответ: ") FW) 

(РЕРМС (CAR V) FW) ; распечатка вывода в файл 


; результатов 
INC (STRCAT "\п Согласно правилу " (ТТОА NP) " из " 


raj 


a m 


базы знаний EKSFERT.PRA ответ: \n" ) ) 

(RINC (CAR V)) ; распечатка вывода на экран 

(ЗЕТО FAXTI (CONS V FAKTI ))) ; ввод вывода в список фактов 
ГЕТЕ: ] 


eJ 
Z 
} 


ИЕ OREN ") TPRINI) 


OSE FD 
PoR 


iCS= РИ) 


Результаты расчета представлены в окне консоли Visual LISP (рис. 5.19). 


O Visual USP Console a 


КОММЕНТЯРИЙ : 
Резупьтаты работы экспертной системы выводятся 
на экран и в хайп EKSPERT .00С 


Начапьные Фхакты в хайпе ЕК$РЕВТ.ОЯМ : 
((СПЯБО ВРЯЩЯЕТСЯ КОПЕН BAN) (СПЯБЯЯ ИСКРЯ НЯ СВЕЧЯХ)) 


РЕЗЧУЧПЬТЯТЫ: 
Согпасно правипу 5 иэ базы энаний ЕК$РЕАТ.РАЙ ответ: 
ППОХОЙ ЯККУМУПЯТОР 
Согпасно правипу 6 из базы энаний EKSPERT.PRA ответ: 
МАЛЫЙ ТОК В ПЕРВИЧНОЙ КЗ 
Согпасно правипу 7 из базы знаний ЕКЗРЕЯТ.РАЯ ответ: 
ППОХОЙ ЯККУМУПЯТОР 
КОНЕЦ # 
14 formas loaded from #<editor ”C:/ALISP/EKSPERT.LSP"> 


pn R e mn -- ~ —. м >>> >>> = > Ää 
À 


Рис. 5.19. Результат выполнения функции (EKSPERT...) 


P o= ao åE ‘Гы T e a _ 
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6.1. Расчет и представление динамических 
параметров 


6.1.1. Постановка задачи 


Задан некоторый агрегат, состоящий из двух звеньев: ведущего звена (кри- 
вошип) и ведомого звена (поступательно движущаяся кулиса). Во время 
рабочего хода ведомое звено реализует постоянное усилие Р. Вес ведомого 
звена С. Весом остальных звеньев агрегата и силами трения пренебрегаем. 
Момент инерции вращающихся частей ведущего звена равен] ‚. Для задан- 
ных параметров агрегата (рис. 6.1) — P = 100 H, С = 10 H, J, = 0,05 кгм", 
длина звена (кривошипа) L = 0,1 м - необходимо рассчитать и предста- 
вить в графическом виде основные характеристики агрегата: 


yrei 


Рис. 6.1. Схема силового агрегата 


° приведенный момент от движущих сил М; 

° приведенный момент от сил сопротивления М. ; 

° приведенный момент инерции J; 

e угловую скорость ведущего звена ©; 

° полную кинетическую энергию агрегата Е. 

Необходимо определить основные характеристики агрегата для режима 
разгона, установившегося движения и торможения. При этом следует учи- 
тывать, что агрегат выходит на режим установившегося режима через два 
оборота (N = 2). Все основные характеристики необходимо определить 
в функции угла поворота ведущего звена — ф и представить их на экране 
дисплея графически во время работы агрегата. Предварительно предстоит 
разработать соответствующие функции на AutoLISP. 
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6.1.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Искомые основные характеристики силового агрегата вначале определим 
для режима разгона. 

Используя равенство мощностей на входе и выходе, вычислим приве- 
денный момент от сил сопротивления М; 

M, 8, =P Vo 

где Y — линейная скорость ведомого звена. 

еловых скорость ведущего звена определяется по формуле: 

в, =V, /L, 

где У — линейная скорость точки А ведущего звена, направленная по 
касательной к окружности О. 

Линейную скорость точки А можно разложить на две составляющие: по 
вертикали V „ и горизонтали \, : 

Va 7 Va Sin ı (180° — ф) = V, sin ф 

Следовательно, скорости точек А и С по горизонтали равны: 

Va -У.У. =У, Sin ọ = o, Lsin o 

Используя это равенство, выражение для приведенного момента OT сил 
сопротивления можно представить в следующем виде: 

М. ©, = Ро, Е sin ọ, M = РГ шп ф 

Используя равенство работы движущего момента А, и сил сопротивле- 
ния А. за один цикл, определим величину приведенного момента от дви- 
жущих сил М „. При этом будем учитывать действие сил сопротивления B 
течение первой половины оборота ведущего звена, когда действует полез- 
ное сопротивление движению p. 


А, = м. dọ; А =2PL; þm, dp=2PL; M, 2n=2PL 


где 2 L — расстояние перемещения ведомого звена за пол-оборота веду- 
щего звена. 

Следовательно, 

М е=Р Бул 

Движущий момент мотора считается постоянным и действует во время 
разгона и установившегося движения. 

Исходя из равенства кинетических энергий, приведенный момент инер- 
ции ], к ведущему звену можно определить следующим образом: 

1/2 J, œ? =1/2 J, œ + 1/2 С V? / By 

откуда}. =J, +G y? / (£y o2), но У =®, Lsin ọ, 

следовательно, J, = J, + G L? sin?’ ọ i gy 
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Исходя из теоремы живых сил, определим значение угловой скорости 


ведущего звена: 
1/2 ihe ©," т А, 


2РТ 
T 


Ф 
но А. = м. dọ = ‚ откуда 0; = 
0 in 
Рассмотрим теперь установившийся режим работы агрегата. Во время 
движения агрегата в первой половине оборота ведущего звена при изме- 
нении угла ф от 0 до р! действуют приведенный движущий момент М, 
и приведенный момент от сил сопротивления M, Результирующий при- 
веденный момент M, в первой половине оборота: звена 1 будет равен: 
М =Ma IM =PL/n- РГ зпф=РГ (1/п- sino). 
За это же время полная кинетическая энергия агрегата (в первой поло- 
вине оборота ведущего звена) составит: 


Е-А -A +C, 
м. do- [Mn do+c= [Eao | 

E= |Ma de- М. 4Ф+С= |—doọ- |PLsinodọ 
0 ao p a 0 


после интегрирования 

Е = РГ (ф/л + со$ Ф) + С, 

где С — постоянная, которая определяется по начальным данным при 
ф=биЕ-=Е. 

С =Е -P L, так как cos 0 = 1, 

при этом Е, — кинетическая энергия, накопленная за время разгона. 

Следовательно, кинетическая энергия агрегата составит: 

Е = РЕ (ф/т+ с0$ ф) +Е -PL 

Накопленная кинетическая энергия за время разгона: 


E= М. | [= PL 


Tao кинетическую энергию агрегата можно рассчитать по формуле: 

Е =РГ, (ф/т + с0$ ф -— 1+2М) 

Полная кинетическая энергия агрегата во вторую половину оборота ве- 
дущего звена (от ф = T A0 Q = 2 7): 

Е-А -A + Е-=РГф/ж-2РЕ+2РЕЬМ= РЕ(ф/т- 2 + 2N) 

Bo второй половине оборота ведущего звена холостой ход и Р = 0, сле- 
довательно, работа сил сопротивления А, = — 2 P Г. останется неизменной. 

Исходя из теоремы живых сил ( J, © o? Г/2=Е), угловую скорость веду- 
щего звена W, при установившемся движении агрегата можно определить 


по формуле: 


dọ = 2PLN 
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2E 
Jin 


Далее рассмотрим режим остановки (торможения) агрегата. Определим 
приведенный момент сопротивления M , который действует в первой по- 
ловине оборота ведущего звена (от ф = Одоф=т): 

М. =РЕзшф (0 <=ф <= 1), ( 2n <= ọ <= 37), ... 

Значение кинетической энергии агрегата за первую половину оборота 
ведущего звена (от ф = 0 доф = р!) составит: 

Е, = Е -—.А, =2 РЕМ - РЕ. (1 - с0$ $) = РЕ (2М + со$ф - 1) 

За вторую половину оборота ведущего звена кинетическая энергия бу- 
дет постоянна и равна кинетической энергии при ф = pi: 

К. = PLON Реп I)=PLON-1-1)=2PL(N-1) 

При дальнейшем вращении ведущего звена от ф = 2r до 3n кинетичес- 
кую энергию можно вычислить по формуле: 

Е. = E, — PL (1 - cos ф) = 2PL (N - 1) - PL (1 - cos ф) = PL (2N - 3 + cos ọ) 

Изменение угловой скорости ведущего звена при торможении H OCTA- 
новке составит: 


Е 
O ie A 
Jin 


6.1.3. Разработка последовательности действий 
и комплекса функций расчета и параметрического 
изображения агрегата и всех его характеристик 


Порядок расчета и графического представления результатов включает сле- 
дующие основные этапы: 

e определение вспомогательных данных и начальных значений. Введем 
начальный угол поворота ведущего звена ф = 0 и начальное перемеще- 
ние на графике изображения той или иной характеристики Z = 0. Pas- 
мер графика по оси X принят равным 4L. Далее введем значение уско- 
рения свободного падения g, = 9.81 и определим приращение угла 

° поворота ведущего звена (принято равным 30°). Исходя из заданного 
числа оборотов Т ведущего звена для разгона, определяем число дис- 
кретных положений ведущего звена — NZ, для которых проводится 
расчет искомых параметров и выдается их изображение. Затем опре- 
делим базовые точки для построения графиков; 


0. = 
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представление названий и базовых линий для искомых параметров. Ба- 
зовые точки для базовых линий определяются со смещением относи- 
тельно друг друга на расстояние 0.6 L, а начальные точки для текста — 
со смещением относительно линий на расстояние 0.5 L над линией; 
создание графического изображения агрегата, расчет и представление 
искомых параметров. Для создания графического изображения агре- 
гата предварительно определим угол поворота ведущего звена, рассто- 
яния ОВ, ВА, координаты точек Т v [в Tp Tp T}, Которые функцио- 
нально зависят от угла ф. После создания графического изображения 
агрегата с помощью полилинии его необходимо запомнить, с тем что- 
бы удалить после выполнения расчетов искомых параметров. Затем 
предстоит сформировать новое положение агрегата, рассчитать новые 
значения искомых параметров, построить их изображение ит. д. Рас- 
чет параметров осуществляется в цикле. Сначала рассчитывается при- 
веденный момент от движущих сил М, затем — работа от движущих 
сил А. приведенный момент инерции J „ H угловая скорость ведущего 
звена. В конце периода разгона определяются и изображаются на гра- 
фиках угловые значения искомых величин. 


Разработка комплекса функции AutoLISP: 


определение вспомогательных данных и начальных значений. Эта 
часть программы может быть записана в следующем виде: 


(251) СЕР. 091 `; ускорение свободного падения 
ТИ ; номер исследуемого параметра 
DFI (/ PI 6) ; приращение угла поворота 
ЕТ (- 0 DFI) ; угол поворота ведущего звена 
№ (/ (* N2 PI) DFI) ; число значений исследуемого параметра 
NZ (+1 (FIX №2) ) 

DZ (/ {4*4 А) ; смещение по горизонтали B цикле 
2 (- 9042) ; число смещений по горизонтали 
ВТС (POLAR ВТ PI L) ; начальная точка оси графика 

J 0 

ЕСТ (POLAR BT 0 (* 4 L)) 

ETG (POLAR BTG (* 1.5 PI) L) 

BTGR. BTG 

МОР (/ (* P L) РТ) ; приведенный момент движущих сил 
в. 20 ; кинетическая энергия 


PIA {* PE 0.5) 
PIC a” EILA) 
ВЕ ЕЕ L) 
LG (* 2 L) 
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Последние четыре строки определяют величину угла перемещения 
вверх (РТА), вниз (PIC), длину ведомого звена — LK и смещение базовой 
линии вниз — LG. Рассчитанные один раз, они экономят много машинного 
времени и упрощают написание программы; 

e представление названий и создание графического изображения базо- 

вых линий для искомых параметров: 
(ВЕРЕАТ 4 
(ТР {= I 3} (SETQ ВТС ВС1)) 
(SETQ BTG (POLAR BTG PIC LG) 
BTT (POLAR BTG РТС (* 0.2 LG))) 
(COND 
((= I 1) (SETQ ТТ "Кинетическая энергия агрегата") } 
((= I 2) (SETQ ТТ "Приведенный момент на ведущем звене") } 
((= I3) (SETQ ТТ "Приведенный момент инерции 41Р")) 
((= I4) (SETQ ТТ "Угловая скорость ведущего звена И") ) 


Фо 


) 

(COMMAND "TEXT" BTT "0" TT) 

(COMMAND "PLINE" BTG "М" 0.5 0.5 (POLAR BTG 0 (* 4 L)) =") 
SWOT {F rD 


e создание графического изображения агрегата, расчет и представление 
искомых параметров. Поскольку изображение агрегата и все искомые 
параметры зависят от угла поворота ведущего звена, эту часть про- 
граммы необходимо выполнять в цикле. | 


(ВЕРЕАТ (+ 1 №) 
(SETQ Z (+ Z DZ) 
J (+J1) 
FI (+ FI DFI) 
ОВ (* {COS FI) L) 
AB (* (SIN FI) L) 
ТВ (РОШАВ BT. 0 ОВ) 
ТА (POLAR ТВ РТА АВ) 
T3 (POLAR ТВ 0 LG) 
T4 (POLAR T3 0 (* 0.5 L}}) 
T31 (POLAR ТЗ PIA (* L 0.4)) 
T32 (POLAR ТЗ PIC (* L 0.4)) 
T41 (POLAR T4 PIA (* L 0.4)) 
T42 (POLAR T4 PIC (* L 0.4})) 
(COMMAND "PLINE" ВТ "М" (* L 0.05) "" TA T3 T31 T41 T42 
132513 "5 
(SETQ L1 (ЕМТЬАСТ) I 1 ВТС BTGR) 
(COMMAND "CIRCLE" TA (* L 0.1)) 
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(SETQ L2 (ЕМТЬАЗТ)) 
(REPEAT 4 
(IF (= I 3) (SETQ ВТС BG1)) 
CIE (= R1) 
(COND ((= I 2) (SETQ $ MDP)) 
ИТ 12 (SETO S (MDP FI) )) 
O= I3 SETO E (JE (/ (CEE {SIN PFI) 
(SIN РТ)) GU)) J1P 5}) 
{= 2) (SETO S (SURT И L2 BELEL (~ JIP PIFI) 
} 
(SETO BTG (POLAR BTG РТС LG)) 
(UE (= LA (SETO 5 (/ S 100)) (SETO S {* S 30))) 
(SETQ BT1 (POLAR BTG 0 2) 
BT2 (POLAR BT1 PIA 5) 
Е) 
(COMMAND “PLINE” ВТ} "W" 0.50.5 ВТ2 "") 
(ТР (AND (=J (+ 1 NZ)) (/= I 5)) (COMMAND "ТЕХТ" ВТ2 "" 
(RITOS [55 100) 2 2 7I) 
(IF (ND {=J (+ 1 NZ)) (= I 5)}' (COMMAND "TEXT" BT2 "" 
(RTOS (/ § 30) 2 2 ))) 
(ENTDEL L3) (ENTDEL L2) (ENTDEL L1) 
( 1) (ENTDEL L3) (ENTDEL L2) (ENTDEL L1) 


Для того чтобы числовые значения искомых параметров представить 
в виде графика для любого дискретного положения ведущего звена, необ- 
ходимо использовать счетчик | и ввести начальное значение {] в первую 
функцию (SETQ...) и группу функций после последней функции 
(СОММАМО...), например: 

(ТЕ (=J 1) (COMMAND "TEXT" ВТ2 "" (RTOS (* $ 100) 22)}) 


6.1.4. Функция расчета и параметрического 
изображения агрегата и всех его характеристик 


хххххххккхкххкхххххккхкккхккхккхкххкххкхххххкхххххххккккхкхххххххххххххх 


(ZSR L G P J1 NR) - функция создания параметрического изображения 

; агрегата, расчета и изображения значений его динамических характеристик 
гри различных режимах работы /разгон, установившийся режим работы, 
торможение/ 

; Аргументы функции: 

L - длина ведущего звена агрегата, мм 

С - масса ведомого звена агрегата, т 

Р - усилие, воздействующее на ведомое звено, Н 

: Jl- момент инерции ведущего звена, кгмм кв. 
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. N - число оборотов ведущего звена в заданном режиме 


f 


. R - режим: 1 - разгон; 2 - установившийся режим; 3 - торможение 


ë 


.Выводимые графические изображения: 


s 


; приведенный момент на ведущем звене 
; кинетическая энергия агрегата Е 
; приведенный момент инерции JP 


. угловая скорость ведущего звена W 


t 
. ЖАХХХХХХККХХХКККХХКХКХХХКХХХХХКХХХХККХХКККХхКХКХКККХХККККККХКЖХХХХКХХКХ 
# 


(DEFUN АСВ (LG P J1NR) 

(SETQ BT (LIST (* 2 L) (* 7 L)) 
| МХУ (LIST (* 11 L) (* 8 L))) 4 
(COMMAND "LIMITS" "0,0" MXY "ZOOM" "A") E 
(SETVAR "CMDECHO" 0) (SETVAR "BLIPMODE" 0) | 
(COMAND STYLE" Ta mn: (к 0,15 E) TI о opan) 
(COMMAND "CIRCLE" BT L 

"CIRCLE" ВТ (* L 0.1)) 


(SETQ L3 (ENTLAST)) ; запоминание последнего построенного примитива 
(SETQ GU 9.81 I1 

DFI (/ PI 6) FI {- 0 DFI) 

№ (/ (* N2 PI) DFI) NZ (+ 1 (FIX NZ)) 

DZ (/ (* 4 L) №2) 2 (-0 DZ) 

ВТС (POLAR ВТ РТ L} J 0 

BG1 (POLAR ВТ 0 (* 4.5 L)) PIC (* PI 1.5) 

- BTG (POLAR BTG PIC L) ка 

BTGR ВТС РТА (* РТ 0.5) 

LK (* 2.5 L) МОР (/ (* P L) РТ) 

BG2 (POLAR BG1 PIA (*0.81)} E 10) | 
(SETQ T3 (POLAR ВТ 0 {* 1.7 L)) T4 (POLAR BT 0 (* 4.1 L)) 


T31 (POLAR T3 PIA (* 0:5 L)) T32 (POLAR T3 PIC (f 0.5-LJ) 
T41 (POLAR T4 РТА (* 0.5 L)) T42 (POLAR T4 PIC {(* 0.5 L)}) 
(COMMAND "PLINE" T31 "W" 1 1 T41 T42 732 "") 
(COND ((= R 1) (SETQ ТТТ "Режим разгона агрегата") } 
((= R 2) (SETQ ТТТ "Установившийся режим работы") } 
((= R3) (SETQ ТТТ "Режим торможения агрегата") }} 
(SETQ TTL (5ТЕСАТ "Длина кривошипа L=" (RTOS L 2 1) " MM") 
TTG (STRCAT "Масса поршня G=" {RTOS G 2 1) " H") 
TTP (STRCAT "Усилие на поршне P=" (RTOS P 2 1) " H°”) 
TTJ (STRCAT "Момент инерции поршня Jl=" (RTOS 9121) 
" КГММ КВ.") 
TTN (STRCAT "Число оборотов кривошипа, N=" (RTOS N 2 1))) 
(COMMAND "TEXT" BG2 "0" TTT 
TEXTI? (POLAR ВОЗ. РС (* 0.4 L)) "0% TTL 
"TEXT" (POLAR ВС2 РТС (* 0.7 L)) "0" TTG 
"ТЕХТ" (POLAR BG2 РТС (* 1.0 L)) "0" TTP 
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“ТЕХТ" (РОБАК БС2 РТС (* 1.3 L)) "0" TTJ 
"TEXT" (POLAR ВС2 РТС (* 1.7 L)) "0" TTN) 
(КЕРЕАТ 4 
(ТЕ (= I 3) (SETQ ВТС (POLAR ВС1 РТС Ь))) 
(SETQ BTG (POLAR BTG РТС LG) 
BTT (POLAR ВТС PIC (* 0.8 L))) 
(COND 
({(= I 1) (SETO TT "Кинетическая энергия агрегата"}) 
((= I 2) (SETQ ТТ "Приведенный момент на ведущем звене"}) 
((= I 3) (SETQ ТТ "Приведенный момент инерции 41Р")) 
((= I £4) (SETQ ТТ "Угловая скорость ведущего звена И"})) 
(COMMAND “"ТЕХТ" BTT "0" TT) 
(COMMAND "РЕТМЕ" ВТС "W" 0.5 0.5 (POLAR BTG 0 (*4L)) "") 


| 


(SETQ Z (+ Z DZ) 
J JN) 
FI (+ FI DFI) 
ОВ (* (COS FI) L) 
AB (* (SIN FI) L) 
ТВ (POLAR ВТ 0 ОВ) 
TA (POLAR ТВ РТА АВ) 
T3 (POLAR ТВ 0 LK) 
TA {POAR T3 0 (*0.5 L) 
T31 (POLAR ТЗ PIA (* L 0.4)) 
T32 (POLAR ТЗ PIC (* L 0.4)) 
T41 (POLAR T4 РТА (* L 0.4)) 
T42 (POLAR T4 PIC (*10.4))) 
(COMAND "PLEINE" ВТ "W" (* 60.05] "" ТА T3 TI M1 T42 
TIa TYE] 
(ЗЕТО L1 (ENTLAST) I 1 BTG BTGR) 
(COMMAND "CIRCLE" TA (* L 0.1)) 
(SETQ L2 (ENTLAST)) 
(REPEAT 4 Е 
(ТЕ (= I 3) (SETQ BTG (POLAR BG1 РТС L})) 
(IF (=R 1) 
(COND 
((= I2) (SETQ S MDP)) 
({= I 1) (SETQ S (* MDP ЕТ})) 
((= I3) (SETQ $ (+ J1 (/ (*GL L (SIN FI) (SIN FI}) GU)) J1P §)) 
((= 1-4) (SETQ $ ДЗОВТ (/ (*.2 PL FI) (* ПРРТ))))))) 
(IF (= R 2) 
(PROGN 
(IF (> FI (* 2 PI)) (SETQ FI (- FI (* 2 PI)))) 
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(COND 

(({(= I2) (IF (AND (>= РГО) (<= FI PI)) 
(SETQ МР (* {*РШ)} (- PI) (51М ЕТ)})) 
(SETQ МР (/ {* P L) РТ) )) 
(SETQ S МР) } 

({(= I 1) (ТЕ (AND (>= FI 0) {<= FI РТ) } 
(SETQ Е! (РГ (+ (/ FI-PI) (COS FI)®-1,(*2:NF))) 
(SETO E (*IP L (ЕТ PIJ <2 2N] 91) 


(SETQ S E)}) 
({(= I3) (SETQ ЛР {+ J1 (/ (* GLL (SIN РТ) 
(SIN FI)) GU))) (SETQ S J1P)) ò 


({(= I4} (SETQ W (SQRT (/ (* 2 E) J1P)) SW))))) 
(IF (AND (= R 3) (/= E 0)) 
(COND | | 
{(=12) (ТЕ (ОВ (<= EFI PI) (AND (>= FI (* 2 PIJ) (<= ЕТ (*ЗРТ)))}) 
(SETQ MCP (-0 (* PL (51МЕГ))} $ MCP) 
(SETQ MCP 0 $ MCP))}) 
({=I 1) (IÈ (<= FI РТ) 
(SETQE (* PL (+ (* 2 N) (COS FI) -1)}) S E)) 
(IF (AND (>= FI PI) (<= FI (* 2 PI))) 
(SETQE (*2 PL (-N1)) SE)) 
(IF (AND (>= FI (*2РТ)) (<= FI (* 3 PI))) 
(SETQE (* PL {+ (* 2N) -3 (COS ЕТ))) S E))) 
((= I 3) (SETQ J1P {+ J1 (/ (*GLL (SIN FI) 
(SIN FI)) GU)) S J1P)) 
((= I4) (SETQ W (SQRT (/ (* 2 E) J1P)) S W)))}) 
(SETQ BTG (POLAR ВТС PIC LG)) 
(IF (/= I4) (SETQS (/ S 100)) (SETQ S (* S 30))) 
(SETQ — ВТ1 (POLAR BTG 0 2) 
BT2 (POLAR BT1 PIA $5) 
I (+ I1)) 
(COMMAND "PLINE" BT1 "W" 0.5 0.5 BT2 °") 
(IF (AND (=J (+ 1 NZ)} (/= I 5)) (COMMAND "TEXT" BT2 "" 
(RTOS (* S 100) 22 ))) 
(IF (AND (=J (+ 1 NZ)) {= I 5)) (COMMAND "TEXT" ВТ? "" 
(RTOS {(/ S 30) 22 ))) 
) (ENTDEL L3) (ENTDEL L2) (ENTDEL L1) 
) (PRIN1) (ENTDEL 13) (ENTDEL L2) (ENTDEL L1) 
) 


Функцию (AGR...) поместим в файл, например, AGR.LSP 
Для исследования режима разгона агрегата необходимо ввести в функ- 
цию соответствующие исходные данные, например: 


(АСВ 100.0 10.0 50.0 5000.02.01} ; расчет режима разгона 
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Результат выполнения функции (АСК...) в режиме разгона агрегата 
представлен на рис. 6.2. 

Для исследования установившегося режима работы агрегата необходи- 
мо ввести соответствующие исходные данные в функцию, например: 


(АСВ 100.0 10.0 50.0 5000.0 2.0 2} ; расчет установившегося режима 


Результат выполнения функции (АСК...) в установившемся режиме 
представлен на рис. 6.3. 

Для исследования режима торможения агрегата необходимо ввести со- 
ответствующие исходные данные в функцию, например: 


< >: 


AGR 100.0 10.0 50.0 5000.02.03) ; расчет режима торможения 


Результат выполнения функции (АСК...) в режиме торможения пред- 
ставлен на рис. 6.4. 


6.2. Расчет и создание параметрического 
изображения нагрузок в фермах 


Использование системы AutoCAD и языка AutoLISP для расчета и созда- 
ния параметрического изображения нагрузок, а точнее, расчета и построе- 
ния линий влияния для плоских стержневых конструкций, рассмотрим на 
примере стрелы башенного крана (подвесного моста, консоли и т. д.). 


Режим разгона агрегата 


Длина кривошипа 1=100 ММ 

Масса поршня G=10 H 

Усилие на поршне Р=50 Н 

Момент инерции поршня J1=5000 КГММ КВ. 


20833.33 Число оборотов кривошипа, М=2 


7548.42 
i 
И 
Кинетическая энергия агрегата Приведенный момент инерции JIP 
2.35 
| 1591.55 ГАА 

ЕЕ ЕЕ ЕЕ 
Приведенный момент на ведущем звене Угловая скорость ведущего звена W 


Рис. 6.2. Режим разгона агрегата 
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20163.46 


Кинетическая энергия агрегата 


о а нь 908.45 


Приведенный момент на ведущем звене 


Установившийся режим работы 


Длина кривошипа 1=100 ММ 

Масса поршня С=10 H 

Усилие на поршне Р=50 Н 

Момент инерции поршня /1=5000 КГММ КВ. 


Число оборотов кривошипа, М=2 


7548.42 


Приведенный момент инерции /1Р 


2.31 


Угловая скорость ведущего звена W 


Рис. 6.3. Установившийся режим работы агрегата 


Кинетическая энергия агрегата 


0 


Приведенный момент на ведущем звене 


Режим торможения агрегата 


Длина кривошипа 1=100 ММ 

Масса поршня С=10 H 

Усилие на поршне Р=50 Н 

Момент инерции поршня /1=5000 КГММ КВ. 


Число оборотов кривошипа, М=2 


Приведенный момент инерции JIP 


РОТ 


Угловая скорость ведущего звена W 


Рис. 6.4. Режим торможения агрегата 
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6.2.1. Постановка задачи 


Разработать алгоритм и программу (функцию) автоматизации расчета 
H создания параметрического изображения линий влияния для стержней 
заданной секции стрелы, представленной на рис. 6.5. 


L 


Рис. 6.5. Вид фронтальной проекции стрелы 


В качестве языка программирования использовать AutoLISP. Основны- 
ми исходными данными для решения задачи являются: базовая точка 
крепления стрелы — BTF; длина стрелы - L; высота стрелы - H; число 
секций в стреле — N; номер секции подвеса стрелы — NC; номер узла, KO- 
торый предшествует расчетной секции, — N1; число дискретных переме- 
шений единичной силы вдоль нижнего пояса — NZ; схема подвески стре- 
лы (см. рис. 6.6). 


Рис. 6.6. Схема подвески стрелы 
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6.2.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Исходя из конструкции стрелы (рис. 6.5), в расчетной секции можно выде- 
лить следующие виды стержней: стержень верхнего пояса стрелы, обозначим 
его S; стержень нижнего пояса стрелы — $,; раскос — $.; стойку — S}. 

Усилия в стержнях стрелы зависят от схемы подвески стрелы, которая 
представлена на рис. 6.6. Определяющими параметрами здесь являются 
координаты точек T4 и ТК. | 

Для определения местоположения точки T4 достаточно знать коорди- 
наты базовой точки BTF и относительные смещения AS и BS искомой точ- 
ки Т4 относительно базовой точки ВТЕ Местоположение необходимых 
точек для проведения расчета и создания параметрического изображения 
линий влияния определим с помощью полярной системы координат. 

Чтобы провести необходимые расчеты, необходимо определить значе- 
ния реакций в опоре BTF и усилия, действующие на стрелу в точке креп- 
ления каната ТК. 

Для расчета последних возьмем сумму моментов действующих сил от- 
носительно базовой точки: 

РА РНР МОЛ =0 

Используя подобие треугольников TK А ВиТК D ТА, определим P, / В 

P; В5-Н В$-Н 


ЕР Е. E А ЕЙ = ты * 

E- AS+NC*LS £ Py с AS+NC*IS Ps A 

nie n E: E L ост E a ИИ 
AS+NC*LS H+A*NC*LS 


6.2.3. Разработка последовательности действий для 
расчета и параметрического изображения линий 
ВЛИЯНИЯ 


Расчет и создание параметрического изображения линий влияния вклю- 
чает следующие основные этапы: 

* определение местоположения точек крепления стрелы, каната и графи- 
ческое изображение их на чертеже. Местоположение точек T1, T2, T4, 
ТК можно найти, используя полярную систему координат. Местопо- 
ложение точек T1 и T2 можно определить путем перемещении базовой 
точки BTF под углом РГ и 1,5 PI соответственно на расстояние 03 H. 
Местоположение точки T4 определяется при перемещении от базовой 
точки BTF под углом PI на расстояние AS, а затем от этой же точки 
под углом РИ? на расстояние BS. Местоположение точки ТК можно 
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установить путем перемещении точки BTF под углом 0 на расстояние 
NC*ĦLS, а затем под углом PI/2 на расстояние H. Для создания графи- 
ческого изображения каната следует соединить точки Т4 и ТК; 

° определение точек расчетной секции (рис. 6.7). Местоположение точ- 
ки Т1 расчетной секции определяется путем перемещения базовой 
точки на расстояние №1*Т.5 под углом 0. Местоположение остальных 
точек (T2, T3, T4) можно определить по рис. 6.7, если перемещаться 
в направлениях, указанных стрелками; 

e подготовка к расчету. Введем переменную Í, определяющую стержень 
сечения, для которого строится линия влияния: 
если [ = 1, стержень верхнего пояса — S; 
если [ = 2, стержень нижнего пояса — S; 
если [ = 3, раскос — S; 
если I = 4, стойка -— S, 

Определим шаг перемещения единичной силы DZ = L / NZ, исходя из 
числа перемещений единичной силы — NZ; 

* выделение на чертеже расчетного стержня в процессе построения Nul- 
нии влияния и определение основных составляющих действующих сил. 
Построим отрезок — основание линии влияния, на котором будет стро- 
иться линия влияния. Толстой линией выделим стержень в расчетной 
секции, для которого проводится расчет. Изобразим единичную силу 
в виде стрелки (она дискретно перемещается по нижнему поясу стрелы). 
Определим реакции в точке опоры стрелы и усилия в точке ее подвеса: 

РРР. Е ERP 


Рис. 6.7. Схемы местоположения точек расчетной секции: а] - расположенной до точки 
крепления канота; 6) - расположенной после точки крепления каната 
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p P*Z x Z 
° H+A*NC*LS H+A*NC*LS 

расчет усилий в стержнях секции. Для расчета усилий в стержнях стре- 
лы используем метод Риттера, согласно которому ферма рассекается 
на две части таким образом, чтобы в сечении было не более трех стерж- 
ней с неизвестными усилиями. Отбрасываем отсеченную часть фермы 
и оставшуюся ее часть рассматриваем в равновесии под действием 
приложенных к ней внешних сил и усилий, заменяющих действие рас- 
сеченных стержней. Для этой части фермы получим три уравнения 
равновесия, в которые войдут три искомых усилия. 

Начнем с определения усилия в стержне верхнего пояса S. Возьмем 
сумму моментов всех сил относительно узла С, в котором пересекаются 
два других стержня (рис. 6.8). 

Проведем сечение, пересекающее три стержня, и рассмотрим равнове- 
сие левой части фермы под действием сил: реакций опоры P, и P, в узле 
О, единичной силы Р (для схемы, представленной на рис. 6.8, а) и действу- 
ющей на расстоянии Z от опоры О. При этом все усилия в стержне nanpa- 
вим от узлов, то есть таким образом, как если бы они были растянуты. При 
этом возможны два случая: расчетная секция расположена до точки под- 
веса стрелы и после этой точки (рис. 6.6). 

Каждый из этих случаев, в зависимости от места расположения единич- 
ной силы, имеет два варианта (рис. 6.8, а, b). 

Единичная сила действует перед узлом С. Z < N1*LS. В таком случае 
сумма моментов относительно точки С составит: 


В/ 


Рис. 6.8. Схемы расчета усилия в стержне $, для секций, 
расположенных до точки подвеса стрелы 


9— 1278 
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> М = 0, 

SH - Р*(М1*Т$ - Z) + Р.*М1*1$ = 0, 

откуда $, = (Р*(М1*Т$ - Z) - P *Ni*LS)/H 

Если единичная сила находится после узла С, то есть Z > №1*Т$, тогда 
сумма моментов относительно точки С составит: 

>, М = 0, 

SH + P *Ni*LS = 0, 

откуда S, = (- P*N1i*LS)/H 

Рассмотрим второй случай, когда расчетная секция расположена после 
точки подвеса стрелы (рис. 6.9). 

Когда единичная сила действует перед узлом О, то есть 7. < (№1 + 1)*15 
сумма моментов всех сил относительно точки D составит È М = 0. Следо-. 
вательно, %, = 0. 

Если единичная сила находится после узла D, то есть Z > (Ni + 1)15. 

S H = P*(Z — (М1 + 1)*15), 

следовательно, S, = (P*(Z — (М1 + 1)*15))/Н 

Чтобы определить усилия в стержнях нижнего пояса 5, возьмем сумму 
моментов всех сил относительно узла E, в котором пересекаются два Apy- 
гих стержня (рис. 6.10). 

Когда расчетная секция стрелы расположена до точки подвеса стрелы, 
возможны два варианта: 
а) единичная сила находится до узла E и сумма моментов относительно 
точки E составит: 
X» *Н + Р*((М1 + 1)*1$ - 2) P NIF 1)*15 - 0, 
= [PANI + 1)*Т$ — Р*((М1 + 1)*1$ -ZH 
re Gm E сила находится после узла Е H сумма моментов относитель- 
но точки E составит: 


N1 N1 
S1 


\ \ 
N 


\ 


(№1+1)1$ D N (№1+1)*1$ 
А/ B/ 


Рис. 6.9. Схемы расчета усилия в стержне S, для секций, 
расположенных после точки подвеса стрелы 
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N1 


Py YA S 


Z C 
(N1+1}LS (№1+1)*1$ 


А/ В/ 


Рис. 6.10. Схемы расчета усилия в стержне S, для секций, расположенных до точки подвеса 


S H-P ЕШЬ -Р ЦТТОТЪУН 
В том случае, когда расчетная секция расположена после точки подвеса 
стрелы (рис. 6.11), возможны два варианта: 
а) единичная сила находится до узла М1 и сумма моментов относительно 
этого узла составит: 
£M = 0, 5,„"Н = 0, 
следовательно, S, = 0, т. к. H /= 0 
6) единичная сила находится после узла М1 и сумма моментов составит: 
> М = 0. $,*Н + P*(Z — N1*LS) = 0, 
следовательно, S, = - P*(Z - №1*15$)/Н 
Рассчитаем усилия в раскосе S, секций, расположенных до точки подве- 
са стрелы (рис. 6.12). 
Если два из трех стержней сечения параллельны, то одна из точек Ритте- 
ра удаляется в бесконечность. Для определения усилия в непараллельном 


Рис. 6.11. Схемы расчета усилия в стержне $, для секций, 
расположенных после точки подвеса 


9s 
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Рис. 6.12. Схемы расчета усилий в раскосе 5. для секций, расположенных 
перед точкои подвеса стрелы 
стержне вместо уравнения моментов можно взять сумму проекций всех сил 
в направлении, перпендикулярном параллельным стержням. В нашей зада- 
че стержни S, и S, параллельны. При этом возможны два варианта: 
а) единичная сила находится до рассматриваемого раскоса Z < №115, 
тогда сумма проекций всех сил на ось У составит: 


P, -P +S, зтВ=0; ape ИИ 
VH? +LS? 
(Р- nm + LS? 


6) единичная сила me. после рассматриваемого раскоса, тогда сум- 
ма проекций всех сил на ось У составит: 


JH? +15? 
Н 
Рассчитаем усилия в стержне 5. для секций, расположенных после точ- 
ки подвеса стрелы (рис. 6.13). 
Возможны два варианта: 
а) единичная сила находится до рассматриваемого раскоса (Z <= N1*LS), 
тогда сумма проекций всех сил на ось У составит: 
S, sin В = 0, S= 0 | 
6) единичная сила находится после рассматриваемого раскоса (Z > М1*Т.5), 
тогда сумма проекций всех сил на ось У составит: 


VH? +15? 


Н 


откуда S, = 


P; +$. зшВ =0; 5. =-Ру 


S, sin B = P, $; =P 
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4х | ИИ 
PCA \=| 
dle NEN 


NILS „| is O NS, 
E ИЗ 


А/ В/. 


а. 
Рис. 6.13. Схемы расчета усилия в раскосе S, для секций, расположенных 
после точки подвеса стрелы 


Рассчитаем усилия в стойке 5, для секций, расположенных до точки 
подвеса стрелы (рис. 6.14). 
Возможны два варианта: 
а) единичная сила находится до узла (Ni + 1), то есть Z<=(N1+1)*LS. 
В таком случае сумма проекций всех сил составляет: 
г.р -0 
откуда» —=Р Р-Р. —1 
6) единичная сила находится после точки (№1 + 1), то есть Z > (№1 + 
+1)*LS. В этом случае сумма проекций всех сил составит: P,- $, = 0 
откуда 5, = P, 
Рассчитаем усилия в стойке S, секций, расположенных после точки под- 
веса стрелы (рис. 6.15). 


? 


(N1+1}'LS (№1+1)*1$ 
Al 


Рис. 6.14. Схемы расчета усилия в стойке $ 4 Для секций, 
расположенных до точки подвеса стрелы 
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N1 
\ \ ` 
(N1+1}LS | д (1+1) | n 


Z 
AJ B/ 


Рис. 6.15. Схемы определения усилия в стойке S 4 В секциях, расположенных 
после точки подвеса стрелы 


При этом возможны два варианта: 
а) единичная сила находится до рассматриваемой стойки (Z < (Ni + 
+ 1)*Ъ5) и сумма проекций всех сил составляет на ось У: $, = 0; 
0) единичная сила находится после рассматриваемой стойки и тогда при 
сумме проекций всех сил на ось У: S, = P; 
® создание графического изображение усилия (линии влияния) в рассмат- 
риваемом стержне. Перпендикулярно отрезку — основанию линии 
влияния — откладываем усилие соответствующего стержня с учетом 
положения единичной силы на стреле. При этом знак усилия в стерж- 
не учитывается автоматически. Масштаб усилий в стержнях пропор- 
ционален 0.3 Н. Одновременно производится удаление графического 
изображения единичной силы на стреле до перехода ее в новую пози- 
цию, а также временное удаление стержня, для которого осуществля- 
ется расчет. Это необходимо, чтобы увидеть, для какого стержня стро- 
ится линия влияния. При перемещении единичной силы на новое 
место на стреле графическое изображение расчетного стержня восста- 
навливается. 


6.2.4. Разработка комплекса функций для расчета 
и параметрического изображения линий влияния 


Разработка комплекса функций AutoLISP включает следующие основ- 

ные этапы: 

° определение местоположения точек крепления стрелы, каната и создание 
на чертеже их графического изображения. Для разработки этой части 
программы используем функции (РОГАК...), а также команды "PLINE 
(построение линий) и "CIRCLE" (построение окружностей). Соответ- 
ствующая часть программы будет выглядеть следующим образом: 
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(SETQ T1 (POLAR BTF РТ (* 0.3 H})) 

T2 (POLAR BTF (* PI 1.5) (* 0.3 H)) 
T3 (POLAR BTF PI AS) 

T4 (POLAR ТЗ (* PI 0.5) BS) 

TK1 (POLAR BTF 0 {* NC LS)) 

TK (POLAR TK1 (* PI 0.5) H) 

) 

(COMMAND "PLINE" T1 "М" 1 1 BTF T2 "" 
"PLINE" T4 "W" 2 2 TK "" 
"CIRCLE" TI 3A CIRCLE“ 2-3 
"CERCLE" T4 3 "CIRCLE" TK 3) 


e определение точек расчетной секции: 


(SETQ T1 (POLAR BTF 0: (* №1 LS)) 
T2 (POLAR T1 {* PI 0.5) H) 
T3 (POLAR T2 0 LS) 
T4 (POLAR: T1 0 LS) 


эс, 


) 
e подготовка к расчету: 


(SETO А (/ (= BS H) (+ АЗ (* NC 15) }} 
NILS (* №1 LS) 
№115 (* (+ №1 1} LS) 
те 
ВТ ВТЕ 
DZ (/ (FLOAT L) NZ) 
SINB (7 WSORT (+ (* E H) т - } 
) 
* выделение на чертеже в процессе построения линии влияния расчетно- 
го стержня и определение основных составляющих действующих сил. 
С помощью функции (REPEAT 4...) сформируем цикл для расчета стер- 
жней 5, Sp, S., S} и построим изображение основания линии влияния: 
(ВЕРЕАТ 4 
(ЕТО ВТ (РОБАК ВТ (* РТ 1..5} (*0.7Н)} 
ВТК (POLAR ВТ 0 L) 
20) 
(COMMAND "PLINE" ВТ "М" 1 1 ВТК "") 
(SETQ BTT (POLAR ВТ (* PI 0.5) (* 0.3 H))) 
Для выделения нужного стержня и перемещения единичной силы 
в этом же цикле сформируем цикл и запомним последние построенные 
примитивы с помощью функции (ЕМТГА$Т...): 
(ВЕРЕАТ № 
(COND ({=.Т 1) (COMMAND "PLINE" T2 "W" 2 2 T3 ""}) 
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((= I2) (COMAND "PLINE" T1 "W" 2 2 T4 "")) 
((= I3) (IF (< N1 NC) 
(COMAND "PLINE" T1 "W" 2 2 ТЗ "") 
(COMMAND "PLINE" T2 "W" 2 2 T4 ""))} 
((= I4) (COMAND "PLINE" T3 "W" 2 2 T4 ""}}} 


(SETO 2 (ВАТ ) 
L2 (ENTLAST) 
BTP (POLAR BTF 0 Z) 
PG (/ A (t (* ANC LS) В] 
P 1 
РУ (* РСА) 
РУ (- P PV) 
PX PG | 
РЕ ЦР (= NLILS 2) ] LS) 
ВА В [= 205} } |} 
) 
(COMMAND "PLINE" ВТР "М" 0.5 5 
(DOLER ETP (~ BI 0.9} (0) =*} 
(SETQ L1 (ENTLAST)) 

Все команды "PLINE", кроме последней, предназначены для выделения 
того стержня секции, которому соответствует текущий номер цикла 
(REPEAT 4...). В переменной L2 запоминается последний выделенный 
примитив, то есть стержень. На нижнем поясе стрелы последняя команда 
"PLINE" показывает единичную силу в виде стрелки, а переменная Li 
с помощью функции (ЕМТГАЗТ...) запоминает изображенный примитив. 

e расчет усилий в стержнях секций. Выделение того или иного стержня 

для расчета произведем с помощью функции (СОМО...). 


(COND ((= I 1) 
(ТЕ (< N1 NC) 
(IF (<= Z NILS) 
(SETO S (/ (- (- NILS Z) (* РУ №115) ) Н)) 
(SETQ S (/ (- 0 (* PY NILS) } H) ) 
) 
(ТЕ (<= Z №1115) 
(SETQ $ 0) 
(SETQ S (/ (- Z №1115) Н)))) 
) 
((= I2) 
(IF (< N1 NC) 
(ТЕ (<= Z №1115) 
“ (SETO S (/ (- (* РУ №1115) (- №1115 2)) Н)) 
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(SETQ:S (/ (* РУ №1115) Н)) 
) 
(ТЕ (<= Z №15) 
(ЗЕТО 5 0) 
(SETQ $ (/ (- №115 2) Н)))) 
) 
( (= I 3) 
(ТЕ {< N1 NC) 
(ТЕ {<= Z №115) 
(SETQ $ (/ (- 1 РУ) SINB)) 
(IF (AND (> Z N1LS) (< Z №1115) } 
(SETQ S (/ (- P1 PY) SINB)) 2 
(SETQ S (/ (- 0 РУ) SINB))}) 
) 
(IF {<= Z N11LS) 
(SETQ S 0) 
(IF (AND (> Z N1LS) (< Z №1115) ) 
(SETQ $ (/ P1 SINB)}) 
(SETQ S (/ 1 SINB)}))})) 
) 
({(= I4) 
(IF (< N1 NC) 
(IF (<= Z N11LS) 
(SETQ $ (- PY 1)) 
(SETQ S PY) 
) 
(IF (< Z N11LS) 
(SETQ S 0) 
(SETO $ 1)))) 
) 
e создание графического изображения усилия (линии влияния) в рассмат- 
риваемом стержне: 


(SETQ  BT1 (POLAR ВТ 0 7) 
S (SS (03) 
BT2 (POLAR ВТ1 {(* PI 0.5) S}) 
(COMMAND "PLINE" ВТ1 "W" 2 2 BT2 "") 
(ENTDEL L2) 
(ENTDEL L1) 
: 
(SETQ I (+ I 1)}) 
(SETQ ZN (RTOS (/ S (* 0.3 H)) 2 2)) 
(COMMAND "TEXT" BT2 "0" ZN) 
) 


Tadd aa Оф 
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(ТЕ (< № NC) (COMAND "PLINE" T2 "W" 2 2 T3 T4 T1 T3 "") 
(СОММАМР “"РЫТМЕ" Т1 "М" 2'2 T4 T3 T2 T4 "")) 
(PRIN1) 
) 
В заключение осталось сформировать начало и конец функции, C помо- 
щью которой будет строиться линия влияния, например: 
(DEFUN STRELA (ХЕ YF L H N NC BS AS N1 NZ) 
(SETVAR "СМОЕСЕО" 0) 
(SETVAR "BLIPMODE” 0) 
(COMMAND "LIMITS" "0,0" "400,300" "ZOOM" "А") 
(COMMAND "STYLE" ви ве вс" "].5" по nn пи na 
(SFERMAL) 


Ниже представлен комплекс функций для создания параметрического 
изображения фронтальной проекции стрелы заданного вида и построения 
линий влияний для стержней заданной секции стрелы. Функция 
(ЗЕЕВМА) строит фронтальную проекцию стрелы заданного вида, pac- 
смотренную в главе 3. 


6.2.5. Комплекс функций для расчета и 
параметрического изображения линий влияния стрелы 


РРР РИ РР И 
8 


; Комплекс функций для создания параметрического изображения 
; сро;=ТАальной проекции стрелы заданного вида и построения 
; ливий влияний для стержней заданной секции стрелы 
ххх КККККККХККХКККЖКККЖККККкКкККк 
(СРЕКМАТ XF YF L H N) - изображение фронтальной проекции 

(STRELA ХЕ УЕ L НМ NC BS AS №1 №) - расчет и изображение 

линий влияния для стержней заданной секции стрелы 

Е ргументы функции: в 

ХЕ - базовая точка стрелы по оси Хх 

УЕ - базозая точка стрелы по оси У 

L, H, N - длина, высота и число секций в стреле 

NC - номер секции подвеса стрелы 

25, BS- точка крепления каната стрелы по оси X n Y 

N1 - номер секции, предшествующий расчетной 

NZ - число дискретных перемещений единичной силы по стреле 
ххх КХКККККККАКККККККККХКККАХК АХ КХКХКХ 
DEFUN ЗЕЕВМА1 () 

(SETQ BTF (LIST XF YF) 

LS (/ L N) 


i G b | `- в ъо ъь ` 5 ~e LE % ь ™ bai) ма 
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T2 (POLAR BTF 0 LS) 
T1 (POLAR T2 (/ PI 2) H) 
I 0 
№ (- N 2)) 
(COMMAND "PLINE" T2 "W" 0.5 0.5 BTF T1 "С") 
(REPEAT NS 
(SETQ T3 (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS) 
I (G+ I1)) 
(IF (< I NC) 
(COMMAND "PLINE" T1 "М" 0.5 0.5 T4 ТЗ T2 T4 "”) 
(COMMAND "PLINE" T2 "W" 0.5 0.5 T3 T4 T1 T3 "") 
) 
(SETQ T2 T3 
T1 TA) 
) 
(SETQ ТМ (POLAR T2 0 LS)) 
(COMMAND "PLINE" T4 "W" 0.5 0.5 TN ТЗ =") 
) 
(DEFUN STRELA (XF YF L H N NC BS AS N1 NZ) 
(SETVAR "CMDECHO" 0) 
(SETVAR "BLIPMODE" 0) 
(COMMAND "LIMITS" "0,0" "400,300" "ZOOM" "ALL" "" } 
(COMMAND "СТУРЕ" пп пт а т пи nü nn wo 
(SFERMAL) 
(SETQ T1 (POLAR BTF PI (* 0.3 H)) 
T2 (POLAR BTF {* PI 1.5) (* 0.3 H)) 
ТЗ (POLAR BTF PI Аб} 
T4 (POLAR T3 (* PI 0.5) BS) 
TK1 (POLAR BTF 0 (* NC LS} } 
TK (POLAR ТК1 (* PI 0.5)-H) 
) 
(COMMAND "PLINE" T1 "W" 1 1 BTF T2 "" 
"PLINE" T4 "W" 2 2 TK "” 
"CIRCLE" T1 3 "CIRCLE" T2 3 
"CIRCLE" T4 3 "CIRCLE" TK 3) 
(SETQ T1 (POLAR BTF 0 (* N1 LS)) 
T2 (POLAR T1 (* PI 0.5) H) 
T3 (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS) 


(SETQ А (/ (- BSH) (+ AS (* NC LS))) 
` NILS (* N1 LS) 
N11LS (* (+ N1 1) LS) 


ta 
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I*r 

BT BTF 

DZ (/ (FLOAT L) NZ) 

SINB (/ H (SQRT (+ (* НН) (* LS ŁS)))) 


(SETQ Il N1 
D (* 0.1 H) 
TEL (ITOA самы) 
ТТ2 (ТТОА I1) 
ТТЗ (ТТОА (+ N1 1})) 
TT4 (ТТОА (- (* 2 N) N1 1)) 
ТЬТ (POLAR T1 (* PI 1.5) D) 
2T (POLAR T2 (* PI 0.5) D) 
3T (POLAR ТЗ (* PI 0.5) D) 
AT (POLAR T4 (* PI 1.5) D) 
TTL " Ливия влияния для стержня ") 
(СОММАМО "ТЕХТ" TIT "0" TT1 
STENTA PT 07 T 
"PET T "0" T 
“TEXT PAT "0” TM) 
(REPEAT 4 
(SETQ BT (POLAR ВТ (* PI 1.5) (* 0.7 H)) 
BTK (POLAR BT 0 L) 
Z 0) 
(COMMAND "PLINE" ВТ "W" 1 1 ВТК "") 
(SETQ BTT (POLAR BT (* PI 0.5) (* 0.3 H)})) 
(COND 
(l= T 1) (COMMAND "TEXT" BTT"! 
(STRCAT TIL TIJ "= " 13) }) 
((= I3) (COMMAND "TEXT" BTT "" (IF (< N1 NC) 
(STREAT TIL TII = =- TT3) 
(STREAT TPL TT2 - * 114) }]) 
((= I2) (COMAND "TEXT" BIT" 
(STRCAT TTL TTI * -* 714) *'* 
((=1 4) (COMMAND "TEXT" BTT "" 
(STRCAT TIL TT "= 7 TT4)])) 
(REPEAT NZ 
(COND 
((= I 1) (COMMAND "PLINE" T2 "W" 2 2 T3 "")) 
((= I 2) (COMMAND "PLINE" T1 "М" 2 2 T4 "")) 
((= I3) (IF (< N1 №) 
(COMMAND "PLINE" T1 "W" 2 2 T3 =") 
(COMMAND "PLINE" T2 "W" 2 2 T4 ""))) 
((= I4) (COMMAND "PLINE" T3 "W" 2 2 T4 "")) 
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(SETQ © (+1022) 
L2 (ЕМТЬАСТ) 
ВТР (POLAR BTF 0 Z) 
PG (/ Z (+ (* A NC LS) H)) 
Р1 
РУ (* РСА) 
РУ (- P PV) 
PX PG 
PAN eA NILS TLS) 
P2 (/ (* P (- Z N1LS))) 
p № <: 
(COMMAND "PLINE" ВТР "И" 0.5 5 j 
(POLAR ВТР (* PI 0.5) (* 0.3 H)}) "”) 
(SETQ L1 (ENTLAST)) 
(COND {(= I 1) 
(IF (< N1 NC} 
(ТЕ (<= Z N1LS) (SETQ S (/ (-.(- NILS Z) (* РУ N1LS)) Н)) 
(SETQ $ (/ {-0 (* РУ №115) ) H}) 
) 
(ТЕ (<= Z №1115) (SETQ S 0) (SETQ $ (/ {- Z №1115) н}}}} 
| 
({= I2) 
(IF (< N1 NC) 
(IF (<= Z №115) (SETQ $ (/ (- (* РУ N11LS) (- №1115 Z)) H}) 
(SETQ $ (/ (* РУ N11LS) H)) 
) 
(ТЕ (<= Z №115) (SETQ S 0) 
(SETQ S (1 (- NiLS Z) Н)))) 
) 
({= I 3) 
(IF (< N1 NC) 
(ТЕ (<= 2 N1LS) (SETQ $ (/ (- 1 PY) SINB)) 
(IF (AND (> Z N1LS) (< Z N11LS)) 
(SETQ S (/ (- P1 PY) SINB)) 
(SETQ $ (/ (- 0 РУ) SINB))) 
) 
(IF (<= Z N11LS) (SETQ S0) 
° (ТЕ (AND (> Z N1LS) {< Z №1115) } 
(SETQ S (/ P1 SINB)) 
(SETQ S (/ 1`SINB)}))})) 
| | 
((=14) 
(IF {< N1 NC) 
(IF (<= 2 N11LS) (SETQ $ (- PY 1)) (SETQ S PY)) 


= ë BE a вый = 
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(ТР (< 2 NL ILS) {SETO $0) (SETQ $ 1)))) 


SETQ Бт1 (POLAR BT 0 Z) 
55 (* 0.3 H)) 

BT2 (POLAR BT1 (* PI 0.5) S)) 
(COMMAND "PLINE" ВТ] "W" 2 2 BT2 "") 
(ENTDEL L2) 

(ENTDEL L1) 


) 

О A (7 I 1}) 

(SETG ZW (RTOS (7 S (* 0.3-H)}) 2 2}) 
(COMMAND "TEXT" BT2 "0" ZN) 


(12 (< N1 NC) (COMAND "PLINE" T2 "W" 2 2 T3 T4 T1 T3 "*) 
(СОМЫАМО "PLINE" TL "М" 2 2 T4 ТЗ T2 Та *")) 


(ЭТКЕЗА 29 200 320.0 62.0 8 4 220 20 2 32) ; вызов функции 
Результат выполнения функции (STRELA...) представлен на рис. 6.16. 


6.3. Расчет и параметрическое изображение 
различных способов выполнения 
производственного процесса 


6.3.1. Постановка задачи 


Задан некоторый производственный процесс, который включает М опера- 
ций. Известно время выполнения каждой операции T „ число рабочих 
мест на каждой операции С. и число изделий, которые необходимо изгото- 
вить с использованием данного процесса, М = 15. Кроме того, известны раз- 
мер передаточной партии, P = 5 и время, необходимое на передачу партии 
изделий с одной операции на другую, T = 3. Требуется определить дли- 
тельность производственного процесса при различных способах выполне- 
ния задания и изобразить весь производственный процесс во времени 
с разбивкой по операциям, а в случае необходимости — и по передаточным 
партиям. Необходимая исходная информация представлена в табл. 6.1. 


6.3.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Известны три способа выполнения производственного процесса: последо- 
вательный, последовательно-параллельный, параллельный. 
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ЛИК 


ЭЛИНИЯ ВЛИЯНИЯ ДЛЯ СТЕРЖНЯ 2-3 


0.50 
ЛИНИЯ ВЛИЯНИЯ ДЛЯ СТЕРЖНЯ 14 - 13 
| |-0.75 
ЛИНИЯ ВЛИЯНИЯ ДЛЯ СТЕРЖНЯ 14-3 
0.46 
ЛИНИЯ ВЛИЯНИЯ ДЛЯ СТЕРЖНЯ 3-13 
-0.39 


Рис. 6.16. Результаты расчета секции стрелы 


Таблица 6.1 


№ Операции = Норма времени 
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При последовательном способе выполнения производственного процес- 
са вся партия передается на последующую операцию лишь после полного 
окончания изготовления всех изделий на предыдущей операции. В этом 
случае длительность производственного процесса определяется как сум- 
ма операционных циклов Г. и времени на межоперационные перерывы, 
связанные с | ый всех moe с одной операции на другую: 


-Ý T, +M* To -Ný Ть a L+ M* Tho 
:=1 i 

График оное способа выполнения производственного 
процесса представлен на рис. 6.17. 

Последовательно-параллельный способ выполнения производственного 
процесса предполагает передачу изделий с операции на операцию переда- 
точными партиями по Р штук. Причем передача осуществляется таким 
образом, чтобы на каждой операции все М изделий изготавливались без 
перерыва. 

За счет передачи изделий передаточными партиями можно частично 
совместить операции, а следовательно, сократить цикл изготовления всех 
изделий. В такой ситуации возможны два варианта: 

а) предыдущий операционный цикл меньше последующего: 

Т<Т. 

6) предыдущий операционный цикл больше последующего или равен 
ему: 

ToT, 

B первом случае, когда T, < T., начало изготовления изделий на после- 
дующей операции BO3MOKHO сразу же после окончания изготовления на 
предыдущей операции первой передаточной партии. Следовательно, вре- 
мя совмещения двух смежных операций T, и T., определяется по времени 
с меньшим операционным циклом: 


NN TN C Длительность операций процесса N = 30, TMO = 6.00 


1 4.00 2.00 
2 3.00 1.00 
3 4.50 3.00 


Длительность последовательного производственного процесса TPP = 207.00 


Рис. 6.17. График последовательного способа выполнения производственного процесса 
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РЕ +1 = P) Т;/ С, при T, 5 Taa 

Во втором случае, когда T, >= T, начало изготовления изделий Ha по- 
следующей операции определяется из условия, что последняя передаточная 
партия, изготовленная на предыдущей операции, сразу же передается для 
изготовления на последующую операцию. Остальные передаточные партии 
должны быть переданы на последующую операцию с таким расчетом, что- 
бы на последующей операции процесс изготовления всех изделий был не- 
прерывным. Время совмещения двух смежных операций T, и T, определя- 
ется по времени a то есть операции C менышцим операционным циклом: 
а 1+1 N (N — P)T Hi+{ 7 C., ı ПРИ T, 5 A 

Из рассмотренных случаев видно, что экономия времени при изготов- 
лении изделий определяется по времени меньшего операционного цикла 
из двух смежных. Это можно записать следующим образом: 

Temi w Z (М-Р) {Tu / С, Ти / Cedmm 

Время всего производственного процесса с учетом перерывов Ha nepe- 


дачу изделий с операции Ha i составит: 


M-i 
Ta Tiry 


я пар — ТЕ — 2T совм, {+1 — -NÝ с jj M* Tmo -(N- OHE C. ©. 
s г ©. MIN 


График последовательно-параллельного способа организации выполне- 
ния производственного процесса представлен на рис. 6.18. 

При параллельном способе выполнения производственного процесса каж- 
дая передаточная партия сразу после ее изготовления передается для изго- 
товления на следующую операцию. Начало изготовления второй и после- 
дующей передаточных партий определяется по самой продолжительной 
операции. Таким образом, зная время изготовления передаточной партии на 
самой продолжительной операции и откладывая это время на графике для 
первой передаточной операции, можно определить время изготовления со- 
ответствующих передаточных партий. В результате операция, которая ха- 
рактеризуется максимальной продолжительностью изготовления изделий, 


NN TN C Длительность операций процесса N = 30, TMO = 6.00, P = 10.00 


1 4.00 2.00 


2 3.00 1.00 na E E E: 


3 4.50 3.00 


Длительность последовательно-параллельного производственного процесса TPP = 137.00 
Рис. 6.18. График последовательно-параллельного способа производственного процесса 
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NN TN C Длительность операций процесса N = 30, TMO = 6.00, P = 10.00 
1 4.00 2.00 ‚ев, am h вым 
2 3.00 1.00 
3 4.50 3.00 оз. Анны В обе 3 


Длительность последовательно-параллельного производственного процесса ТРР = 137.00 


Рис. 6.19. График параллельного способа выполнения производственного процесса 


не будет иметь перерывов между передаточными партиями. Время выпол- 
нения производственного процесса при параллельном способе организации 
производства составит: 


М T 5 
Tap. =P M чо+(М-Р) 


1=1 1 


Tau Tiz Tui 
$ у%е=у 
С, С, С, МАХ 
Выражение В фигурных скобках означает, что из всего множества OTHO- 
шений выбирается одно, имеющее максимальное значение. 
Г рафик параллельного способа выполнения производственного процес- 


са представлен на рис. 6.19. 


6.3.3. Разработка последовательности действий 
и комплекса функций расчета и параметрического 
изображения различных способов выполнения 
производственного процесса 


Порядок расчета и создания параметрического изображения различных 
способов выполнения производственного процесса включает два основ- 
ных этапа: 

© определение местоположения заголовка, его отображение и определение 

базовой точки для прорисовки графика. Допустим, начало заголовка 
находится в точке ВТ с координатами: Х = 10, аУ = 180. Начало про- 
рисовки графика определяется точкой ВТО, которая смещена по от- 
ношению к точке ВТ на 50 единиц вправо. Координаты точек ВТ 
и ВТО придется определять для каждой операции путем смещения их 
на 20 единиц вниз. Следовательно направление (угол) перемещения 
достаточно определить один раз. В AutoLISP отсчет угла идет от гори- 
зонтальной линии против часовой стрелки, перемещение вниз равно- 
сильно перемещению под углом 270°. Обозначим эту величину PIC. 
Здесь же определим ряд дополнительных переменных; 
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° 6600 на чертеж входных данных, расчет и отображение времени вы- 
полнения операционного цикла. Данный этап целесообразно выполнять 
в цикле. Число обращений равно числу операций в производственном 
процессе. В каждом цикле вводится номер операции С.. При этом базо- 
вые точки для ввода исходных данных ВТ и построения графика ВТО 
автоматически пересчитываются и перемещаются на 20 единиц вниз. 

Расчет и отображение времени выполнения операции зависит от спосо- 
ба выполнения производственного процесса. 

При последовательном способе длительность выполнения ны опе- 
рации определяется по формуле: â 

TENTO 

При этом начальная точка отображения времени выполнения следую- 
щей операции определяется по конечной точке предыдущей со смещени- 
ем по горизонтали на время межоперационных перерывов Ти вниз на 
величину заданного шага — (20 единиц). Ширина линии для прорисовки 
времени выполнения операции принята равной двум единицам. 

При последовательно-параллельном способе длительность выполнения 
операции остается такой же, как и при последовательном, однако в смеж- 
ных операциях допускается совмещение их выполнения. 

Если операционный цикл T, меньше операционного цикла T., то npo- 
а смещение начальной точки операции ВТО на величину (N — P) 

Т,/ С. влево и на 20 единиц вниз относительно конечной точки ВТК, от- 
носящейся к предшествующей операции. 

При параллельном способе предварительно определяется самая продол- 
жительная ви В о затем — длительность выполнения переда- 
точной партии T, = Т./ С. Начало выполнения каждой последующей 
передаточной вы смещено вправо относительно начала выполнения 
предыдущей передаточнои партии на величину, которая равна времени из- 
готовления передаточной партии на самой продолжительной операции. 
В этом случае операция, которая характеризуется самым длительным вре- 
менем выполнения, не имеет перерывов. 

Порядок определения местоположения заголовка, его изображения 
и определения базовой точки для прорисовки графика при последователь- 
ном способе состоит в следующем: 


(ЗЕТО р 
ВТ ‘(10 180) ; базовая точка ввода данных 
ВТО ‘(100 180) } ; базовая точка для прорисовки графика 


(COMMAND "TEXT" ВТ "0" (5ТВСАТ " ММ ТМ С "* 
" Длительность операций процесса М =" (ТТОА N) 
" TMO = ” (RTOS TMO 2 2))) 
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В функции (COMMAND...) используется одна команда графического 
редактора “TEXT” для вывода на чертеж текстовых данных и три функции 
AutoLISP: (ЗТВСАТ...), (ТТОА N), (RTOS TMO 2 2). 

Функция (ЗТВСАТ...) объединяет, сцепляет все строковые константы 
в одну (один текст). 

Функция (ТТОА М) преобразует целое число (число изделий М) в стро- 
ковую константу для последующего вывода на чертеж. 

Функция (RTOS TMO 2 2) преобразует действительное число (время 
межоперационных перерывов ТМО) в строковую константу, чтобы затем 
вывести ее на чертеж. Второй аргумент функции — 2 указывает, что число 
должно быть представлено в десятичном виде. Третий аргумент - 2 указы- 
вает, что число знаков после запятой должно быть равно двум. 

Вывод на чертеж входных данных, расчет и отображение времени вы- 
полнения операционного цикла может выглядеть следующим образом: 

(FOREACH EL LTC 
Q TN (CAR EL) ; норма времени на операцию 

С (CĒDR EL) ; число рабочих мест на операции 
ВТ (POLAR ВТ (* РГ 1.5} 20) 
5 


(COMMAND "TEXT" BT "0" (STRCAT " " (ITOA I)" " 
ATOS 2 2a (RTOS с emy 
АО A N TIN C) 
BTK (POLAR BTO 0 TO)) 
(COMMAND "PLINE" BTO "М" 2 2 ВТК "") 
(SETQ ВТО (POLAR BTK 0 TMO) 
TA) 
) 

Функция (FOREACH EL LTC...) последовательно извлекает из спис- 
ка LTC элементы EL, которые, в свою очередь, представляют список из 
двух элементов (T С) - нормы времени на операцию T и числа рабочих 
мест на операции С. При помощи функций: (NTH 0 EL) n (МТН1 EL) из 
списка извлекаются элементы T и С. Значение 0 в функции (NTH 0 EL) 
означает извлечение из списка первого элемента, значение 1 — второго 
элемента списка и т. д. Затем определяются базовые точки ВТ и ВТО для 
ввода исходных данных и создания графического изображения. Исход- 
ные данные вводятся с помощью функции (СОММАМО...). Далее опре- 
деляется длительность операционного цикла ТО, координаты конечной 
точки ВТО и с помощью команды "PLINE" отображается линия, а также 
осуществляется подготовка к следующему циклу. 

В заключение определяется длительность последовательного производ- 
ственного процесса: 
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(SETO BTO (POLAR ВТ 0 90) 
TPP (DISTANCE ВТО BTK) ) 

(COMMAND "TEXT" (POLAR ВТ (* PI 1.5) 20) "0" 

(STRCAT "Длительность последовательного производственного " 
“процесса TPP =" (RTOS TPP 2 2))) 


Точка ВТО определяет начало производственного цикла, функция 
(DISTANCE BTT ВТК) - время выполнения всего производственного 
цикла: от начальной точки ВТО до конечной точки ВТК на последней опе- 
рации. Команда "TEXT" включает в чертеж текстовую информацию, начи- 
ная с точки (POLAR ВТ (* PI 1.5) 20) с углом наклона текста 0. Функция 
(ЭТКСАТ...) формирует текстовую строку из текста и числа, которое пре- 
образуется в текстовый вид с помощью функции (RTOS TPP 2 2). 


6.3.4. Функции расчета и параметрического 
изображения различных способов выполнения 
производственного процесса 


Ниже представлена функция (POSL LTC М TMO). 


‚ хххххххххкххххххкххххккхххххххххххххххххххххкххкххххххххххкхххххххххх 
f 


; Функция (POSL LTC N TMO} обеспечивает расчет и параметрическое 
изображение последовательного способа выполнения любого 

; производственного процесса 

Аргументы функции: 

LTC - список норм времени Т_ и числа рабочих С_ в процессе 

. вида (1) 112 C2) 110...) 

; N - число изготавливаемых изделий 

ТМО - время межоперационных перерывов 

Пример использования функции (POSL LTC М TMO) 

; (POSL (14.2) (3 1) (4.5 3)) 30 6) 


; хххххкххххххкхккккххххххккхкхххккхххккккхкккккхкхкКккКкКХхкККкКККАХХКХХКККХ 


(DEFUN POSL (LTC М TMO) 
(SETVAR "CMDECHO" 0) 
(SETVAR "BLIPMODE" 0) 
(COMMAND "LIMITS" "0,0" "297,210") 
(COMMAND "CTYLE"” un ип nan ETA na nhh nB ити 


- о 


за 


зо 


w o 


- p 


(SETQ I1 
BT ' (10 180) ; базовая точка ввода данных 
ВТО ‘(100 180) ) ; базовая точка для прорисовки графика 


(COMMAND "TEXT" ВТ "0" (STRCAT " NN TN С " 
" Длительность операций процесса М = " (ТТОА М) 
", TMO =" (RTOS TMO 2 2)}) 

(FOREACH EL LTC 
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(SETQ TN (CAR EL) ; норма времени на операцию 
С (CADR EL) ; число рабочих мест на операции 
ВТ (POLAR ВТ (* РТ 1.5) 20) 
ВТО (РОБАВ ВТО (* РТ 1.5) 20)) 
(COMNSND. "ТЕЗ" ВТ "0" (STRCAT " ""{(ITOA I) "u 
(HOSIN 2-2) T (RTOS C 2.2)" ") 
(SETO TO (/ "N TN} ©) 
BTK (POLAR ВТО 0 ТО) } 
(COMAND "PLINE" ВТО "М" 2 2 ВТК ""} 
(SETQ ВТО (POLAR ВТК 0 TMO) 
Тат т) 
(SETQ BTO (POLAR ВТ 0 90) 
TPP (DISTANCE ВТО ВТК)) 
(СОММАМО "TEXT" (POLAR ВТ (* РТ 1.5) 20) "0" 
(ЭТЕСАТ "Длительность последовательного производственного " 
“пооцесса TPP = " (RTOS TPP 2 2)}) 
(COMAND "ZOOM" "ALL" "" ) 
) 
(EL "(M27 (31) (4-3 3)) 30 6) ; вызов Функции 


Резульгат выполнения функции (POSL...) представлен на рис. 6.20. 


NN TN Е Длительность операций процесса М = 30, ТМО = 6.00 
4.00 2.00 
3.00 1.00 


4.50 3.00 


Длительность последовательного производственного процесса ТРР = 207.00 


Рис. 6.20. Параметрическое изображение последовательного способа выполнения 
производственного процесса 


Ниже представлена функция (PPAR LTC N P TMO). 
хххххххкхххккхкхккхккххкхкккххкккхкххкхккхххккхХхХххХХхУХКХХХУХККХХХХХККХ 
; Функция (PPAR LTC N P TMO} обеспечивает расчет и параметрическое 
изображение последовательно-параллельного способа выполнения 
; производственного процесса 
;‚ Аргументы функции: 
; LTC - список норм времени Т_ и числа рабочих С_ на операциях 
menna (T1 CI) {T2 CZ) (T3 CIV] 
; N - число изготавливаемых изделий 
м величина передаточной партии 
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; ТМО - время межоперационных перерывов 
‚ Пример использования функции (PPAR LTC МР TMO) 


e 
f 


(PPAR "(2 A S0 TL 6) 


. kkkkkkkkkkěkkěřkká*ýžá*žá*žážěšěžšžkkkáýžkkkkěěkěěů*ýěěýěkě*ýk*ýěkkýkžěkě*ýěk*kěýě*kž*ýžážážýžkkžěýi*ěėýġ*ýěá*ážáůżk*kěěýġkká*ż*ýk*x* 
$ 


) 


(DEFUN PPAR (LTC N P TMO) 


(SETVAR "CMDECHO" 0) 
(SETVAR "BLIPMODE" 0) 
(COMMAND "LIMITS" "0,0" "297,210" ) 
(COMMAND "СТУГЕ" '" nn ngu ngh nn nm пн ain) 
(SETQ I1 
BT '(10 180) 
BTO ‘(100 180) 
ТВ 0 
TRN 0 } 
(COMMAND "TEXT" ВТ "0" (STRCAT " ММ ТМ С Длительность" 
" операций процесса М =" (ТТОА М) "; TMO =" (RTOS TMO 2 2) 
"a P= RTOS р] 
(FOREACH EL LTC 
(SETQ TN (CAR EL) 
C (CADR EL) TC (/ TN C) 
BT (POLAR BT (* PI 1.5) 20) 
BTO (POLAR BTO (* PI 1:5) 20) 
BTT (POLAR BT 0 90)}) 
(COMMAND "TEXT" BT "0" (STRCAT " " (ITOA I) " " 
(RTOS TN; 2 2) m=ENIRTOS C2 27 ry) 
(SETO Отт} C) 
TENA (* {= МРТ V8) 
(IF (> ТВ TC) (IF (> I 1) (SETQ BTO (POLAR BTO PI TPN} )) 
(SETQ BTO (POLAR ВТО PI ТВМ))) 
(SETQ BTK (POLAR BTO 0 TO)) 
(COMMAND "PLINE" BTO "W" 2 2 BTK "") 
(SETQ BTO (POLAR BTK 0 TMO) 
о 
(SETO TR TC 
TRN TPN) ) 
(SETQ TPP (DISTANCE BTT BTK) ) 
(COMMAND "TEXT" (POLAR ВТ (* PI 1.5) 20) "0" 
(STRCAT "Длительность последовательно-параллельного " 
"производственного процесса TPP = " (RTOS TPP 2 2))}} 
(COMMAND "ZOOM" "ALL" "" } 


эс 


(PPAR '((42) (31) (4.5 3)) 30 106) ; вызов функции 


Результат выполнения функции (PPAR...) представлен на рис. 6.21. 
Ниже представлена функция (РАВ LTC МР TMO). 
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NN TN C Длительность операций процесса N = 30, TMO = 6.00, P = 10.00 
1 400 2.00 
2 3.00 1.00 


3 4.50 3.00 


Длительность последовательно-параллельного производственного процесса ТРР = 137.00 


Рис. 6.21. Параметрическое изображение последовательно-параллельного способа 
выполнения производственного процесса 


ххх кк ккххкххкхххххххкхкхкхххкхххххкякхххххххххкх 


чз чу 


ункция (РАК LTC N P TMO) обеспечивает расчет и параметрическое 
представление параллельного способа выполнения 
производственного процесса 

Аргументы Фучкции: 

LTC - список норм времеви T_n числа рабочих С_ на 

опесатиях вида ((T1 C1) (T2 C2) (T3 С3)...) 

№ - число изготавливаемых изделий 


Ja 


ù p - о фз L ъо чо 


P - величина перелаточной партии 
; TMO - время мекоперационных перерывов 
; Пример использования Функции (РАК LTC МР TMO} 
> (PR "{({(4 2) 13 1) (4.5 33005 


хххххххккккхкккккхккххххххкххккхкххххкхкккхххкххккххххкххххкхХкххХхХхХхХхХХх 
(DEFUN PAR (LTC N P TMO) 

(ЗЕТУАВ "CMDECHO" 0) (SETVAR "BLIPMODE" 0) 

(COMMAND “LIMITS” "0,0" "297,210") 

(COMMAND "СТУТЕ" по пе вв отб о nn яя "т 


(SETQ I1 
T” (10 180) 
BTO ’(100 180) 
NP (/ N P) 
TCMAX 0) 
(COMMAND "TEXT" BT "0" «5ТВСАТ " NN TNC " 
" Длительность операций процесса N = " (ТТОА М) 


= TMO =“ (RTOS-TMO 22)" ор" (RTOS P 2"2))) 
(FOREACH EL LTC 
(SETQ TN (CAR EL) 
C (CADR EL) 
TC INC) 
(IF (> TC TCMAX) (SETQ TCMAX TC)) 
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(SETO ТРМАХ (* ТСМАХ P)) 
(FOREACH EL LTC 
(SETQ TN (CAR EL) 
C (CADR EL) 
BT (POLAR ВТ (* PI 1.5) 20) 
BTO (POLAR BTO (* PI 1.5) 20) 
BTT (POLAR BT 0 90)) 
(COMMAND "TEXT" BT "0" (STRCAT " " (ТТОА I) "" 
(RTOS TN 2 2) " "(RTOS C 2 2) "M1 ) 
(SETO "TO '(/"{* P TN) C) 
BTK (POLAR ВТО 0 TO) 
T1 BTO "A 
T2 BTK) 
(REPEAT NP 
(SETO BT2 T2) 
(COMMAND "PLINE" T1 "W" 2 2 T2 "") 
(SETO T1 (POLAR T1 0 TPMAX) 
T2 (POLAR T1 0 TO))) 
(SETQ BTO (POLAR BTK 0 TMO) 
DA eT 
) 
(SETQ ТРР (DISTANCE BTT BT2)) 
(COMMAND "TEXT" (POLAR BT (* PI 1.5) 20) "0" 
(STRCAT "Длительность параллельного производственного " 
“процесса TPP = " (RTOS TPP 2 2))) 
(COMMAND "ZOOM" "ALL" "" }) 
(РАВ '((42) (31) (4.5 3)) 30 10 6) ; вызов функции 


Результат выполнения функции (РАК...) представлен на рис. 6.22. 

Часто возникают ситуации, когда график изображения производствен- 
ного процесса выходит за рамки экрана. В этом случае возможны два спо- 
соба просмотра графика выполнения всего производственного процесса. 


NN TN C Длительность операций процесса М = 30, TMO = 6.00, P = 10.00 
1 4.00 2.00 
2 3.00 1.00 


3 4.50 3.00 


Длительность последовательно-параллельного производственного процесса TPP = 137.00 


Рис. 6.22. Пораметрическое изображение параллельного способа выполнения 
производственного процесса 
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Первый, самый простой, но не самый лучший, — использовать команду 
графического редактора "ZOOM" (Показать) с ключом А (ALL - Все). Ipa- 
фик производственного процесса появится на экране полностью, однако 
подписи на графике могут быть очень мелкими. 

Второй способ связан с дополнительными операциями вычислений 
и обеспечивает автоматическое уменьшение только графика. Для того что- 
бы воспользоваться вторым способом, достаточно определить коэффициент 
масштабирования КМ для самого продолжительного производственного 
процесса — последовательного, который определяется следующим образом: 


(ЗЕТО TS 0) 


FOREACH EL LT ; определение длительности процесса 
(S2TO T (Nfa 0 EL) ; норма времени на операцию 
С (NTH 1 EL) ; число рабочих мест на операции 
ТО (/ (* МТМ) С) ; длительность выполнения операции 
TH (+ тр TO)? ; длительность выполнения процесса 
) 
(SeT <M (/ 200.0 TDI) ; определение коэффициента масштабирования 


Используя коэффициент масштабирования КМ, необходимо ввести со- 
ответствующие изменения, связанные с определением времени выполне- 
ния операций ТО, времени межоперационных перерывов ТМО и всего 
производственного процесса TPP. 

После определения длительности процесса ТО: 

[ЗЕЪО ЕО: (/ [> № ТМ) С)} 

следует скорректировать величину длительности процесса: 

SETO ТО (* ТО ЕМ)) 

Перед использованием времени межоперационного цикла ТМО необхо- 
димо задать его скорректированное значение: 

(SETO TAO (~ TDO &М)) 

Поскольку TO и TMO были скорректированы с использованием коэф- 
фициента масштабирования КМ, необходимо восстановить реальную дли- 
тельность всего процесса TPP. 

Там, где определены значения [PP 

(SETQ TPP (DISTANCE ВТО ВТК)) 

их следует заменить на выражение для определения реального времени 
ТРО. 

(SETQ TPP (/ TPP КМ) ) 

Одновременно с модернизацией функций введем новое условие. До- 
пустим, время межоперационных перерывов непостоянно. В таком слу- 
чае, кроме Т_ — нормы времени на выполнение операции и С _ - числа 
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рабочих мест на операции, B список LTC следует ввести время MEX- 
операционных перерывов ТМО: 


LIT C1 TMOL) (T2 C2 TMO2) (T3 C3 TMO3)..) 


В окончательном виде функция (РОГ LTC N) будет выглядеть сле- 


дующим образом: 


F 


t 


чо 


ххххкккххххкккххккхххккхххкххххххххххххкккхХХххкхХхХхкхкКХкАХХКХКХХяХКХ 


‚ Функция (POSL1 LTC М) обеспечивает расчет и параметрическое 


изображение последовательного способа выполнения 
производственного процесса 
Аргументы функции: у 


; LTC - список норм времени Т_, числа рабочих мест С_ и времени 
‚ межоперационных перерывов ТМО_ в производственном процессе 
. вида ((Т1 C1 ТМО1) (T2 C2 TMO2) (T3 C3 TMO3)..) 


N - число изготавливаемых изделий 


; Пример использования функции (POSL1 LTC N) 


(FOSEL “((4 2 0.3) 13 ть 3. 51) 30 


ххххххккхххккххххххххкххххххххххххххххххххкхххххххкхххххххххххххХххХхххХх 


(DEFUN POSL1 (LTC М} 


(SETVAR "CMDECHO" 0) 

(SETVAR "BLIPMODE" 0) 

(COMMAND "LIMITES" "0,0" 2974210“) 
(COMMAND ASTY DE ME me g AJ a e y 


(SETO I 1 
BT ' (10 180) ; базовая точка ввода данных 
ВТО ‘(100 180) ) ; базовая точка для прорисовки графика 


(COMMAND "TEXT" ВТ "0" (STRCAT " ММ TN С TMO " 
" Длительность операций процесса при N=" (ITOA N})) 


(SETO TD 0) 
(FOREACH EL LTC ; определение длительности процесса 
(SETO ТМ (МТН 0 EL) ; норма времени на операцию 
С (NTH 1 EL) ; число рабочих мест на операции 
ТО (/ (* N TN ) С}; длительность выполнения операции 
TD (+ TD TO)) ; длительность выполнения процесса 
(SETQ КМ (/ 200.0 TD)) ; определение коэффициента масштабирования 
(FOREACH EL LTC | 
(SETQ TN (NTH 0 EL) ; норма времени на операцию 
С (NTH 1 EL) ; число рабочих мест на операции 
TMO (NTH 2 EL) ; длительность межоперационного 
; перерыва 
ВТ (POLAR ВТ {* PI 1.5) 20) ; точка ввода данных 
ВТО (POLAR ВТО (* РТ 1.5) 20) ; точка начала операции 


ТО (/ (* N TN } С); длительность выполнения операции 


берем 
a Ees 
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ТО (* ТО КМ) ; скорректированная длительность операций 
BTK (РОБАК ВТО 0 ТО)) ; точка окончания операции 

(COMMAND: “ТЕХТ" ВТ "0" (STRCAT " " (ITOA I)" " 

(RTOS TN 22) = T (ВС) “ “ (RTOS TMO 2 2) "3 ")] 

(COMMAND "PLINE" BTO "W" 2 2 BTK" ") 


(SETQ TMO (* TMO KM) ; скорость время межоперационных перерывов 
ВТО (POLAR ВТК 0 ТМО) ; точка начала следующей операции 
т) 
) 
(SETQ ВТО (POLAR ВТ 0 90) ; Точка начала процесса 
ТОР (DISTANCE ВТО ВТК) ; скорректир. длительность процесса 
TPP (/ TPP КМ) ) ; реальная длительность процесса 


(СОММЕМО "TEXT" (POLAR Вт (* РТ 1.5) 20) "0" 

(ЗТАСАТ "Длительность последовательного производственного" 
" процесса TPP = " (RTOS TPP 2 2)) 

) 

(COMAND "700М" "ALE" "" ) 

) 

(POSLI '((420.5) (311.0) (4.53 0.0)) 60) ; вызов функции 


Результат выполнения функции (POSL1...) представлен на рис. 6.23. 
ММ TN C TMO Длительность операций процесса при N= 60 
1 4.00 2.00 0.50 


2 3.00 1.00 1.00 


3 4.50 3.00 0.00 


Длительность последовательного производственного процесса ТРР = 391.50 


Рис. 6.23. Параметрическое изображение последовательного способа выполнения 
производственного процесса 


Аналогичную модернизацию можно осуществить и для функций 
(PPAR...) и (РАК...). 


. хххххкхкххххххххххкккххккккххххяххххкхкххххххкххххххХххххякКХХхХхХхХхХххяХх 
Функция (PPAR1 LTC МР} обеспечивает расчет и параметрическое 
изображение последовательно-параллельного способа выполнения 
; производственного процесса 
Аргументы функции: 
ГТС - список норм времени Т_ ; числа рабочих мест С_ на 
операциях и времени межоперационных перерывов ТМО_ вида 
( (T1 C1 TMO1) (T2 C2 TMO2) (T3 С3, ТМОЗ)...} 
N - число изготавливаемых изделий 


s 


as 
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; P - величина передаточной партии 
; Пример использования функции (РРАК1 LTC N P) 
‚ (РРАВТЫ ((4 20.5)1(3\]1.0),12.593 1:5}} 39410} 
; ххх КАХА ХхкККХхХКХхХХХАХАХКАХХХХ 
(DEFUN РРАВ1 (LTC МР) 
(ЗЕТУАВ "СМОЕСНО" 0) 
(ЗЕТУАВ "ВЬТРМОПЕ" 0) 
(COMMAND "LIMITS" "0,0" "297,210") 
(COMMAND "STYLE" пп ия "Ди" "„]" на па пп ие) 
(SETQ I1 - 
BT * (10 180) 
BTO ' (100 180) $ 
TR 0 
TRN 0 ) 
(COMMAND "TEXT" ВТ "0" (STRCAT " NN ТМ С ТМО " 
" Длительность операций процесса при М = "`(ТТОА N) 
"n P=" (1Т0АР)))} 
(SETQ TD 0) 
(FOREACH EL LTC 
(SETQ TN (NTH 0 EL) 


определение длительности процесса 
‚ норма времени на операцию 


a 


C (NTH 1 EL) ; число рабочих мест на операции 
ТО (/ (* МТМ) С) ; длительность выполнения операции 
TD (F TD TOFI) ; длительность выполнения процесса 
(SETQ КМ (/ 200.0 То) ) ; определение коэффициента масштабирования 


(FOREACH EL LTC 
(SETQ TN (NTH 0 EL) 
C (NTH 1 EL) 
TC {7 TN C) 
TMO (NTH 2 EL) 
BT (POLAR ВТ (* PI 1.5) 20) 
BTO (POLAR BTO (* PI 1.5) 20) 
BTT (POLAR ВТ 0 90)}) 
(COMMAND "ТЕХТ" ВТ %0" (STRCAT " " (ТТОА Т) "" 
(RTOS TN 2 2) " " (RTOS C 2 2) г" (RTOS TMO 2 2) " ")) 
(SETO 1i TO {7 F NTN IC) 
ТО (* TO KM) 
TPN (/ (* (- NP) TN) С) 
TPN (* TPN КМ) } 
(IF (> TR ТС) (IF (> I 1) (SETQ BTO (POLAR ВТО PI TPN))) 
(SETQ BTO (POLAR BTO PI TRN})) 
(SETQ BTK (POLAR BTO 0 ТО} ) 
(COMMAND "PLINE" BTO "W" 2 2 BTK "") 
(SETQ BTO (POLAR BTK 0 TMO) 
M T | 
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(SETQ TR ТС TRN ТЕМ) ) 
(SETQ TPP (DISTANCE BTT BTK) 
TPP (/ TPP KN)) 
(COMMAND "TEXT" (POLAR BT (* PI 1.5) 20} "0" 
(STRCAT “Длительность последовательно-параллельного производственного " 
“пооцесса TPP = " (RTOS TPP 2 2)}} 
(COMAND "ZOOM" "ALL" "" )) 
(PRRI (420.5) (3 11:0) (4:53 1:51) 6010) 


Результат выполнения функции (PPAR1...) представлен на рис. 6.24. 


ММ ТМ С TMO Длительность операций процесса при М = 60 иР = 10 
1 4.00 2.00 0.50 
2 3.00 1.00 1.00 


3 4.50 3.00 1.50 


Длит. последовательно-параллельного производственного процесса ТРР = 217.93 


Рис. 6.24. Параметрическое изображение последовательно-параллельного способа 
выполнения производственного процесса 


ххххххккххххккккхккккхккхккккхкххххкхххкххххккхкхкхххкххххххххккххкяххххххххХя 


; Функция (PAR1 LTC МР) обеспечивает расчет и параметрическое 
; изображение параллельного способа выполнения 
; произзодственного процесса 
Аргументы Функции: 
LTC - список норм времени T_ , числа рабочих мест С_ и времени 
мехоперапионных перерывов ТМО_ в производственном процессе 
вида ((T1 C1 TMO1) (T2 C2 TMO2} (T3 C3 TMO3)..) 
N - число изготавливаемых изделий 
Р - величина передаточной партии 
Пример использования функции (РАК1 LTC N P) 
$ (РАВ “t4 2 0375) (3 11-0) П.О T0) 
; хххкхкхкхккххххкхкххххххххкхххххххххххххххххххкххххХХХхяХхкХхяХяхХхХхХхХхХХхХ 
(DEFUN PAR1 (LTC МР) 

(SETVAR "CMDECHO" 0) 

(СЕТУАВ "BLIPMODE” 0) 

(COMMAND "LIMITS" "0,0" "297,210" } 

(COMMAND "СТУГЕ” пи па "д" в nn nA па er 


`ъо LN ще ъь «о bali) 


ъе 


(SETQ I 1 
BT ' (10 180) ; базовая точка ввода данных 
ВТО ' (100 180) ; базовая точка для прорисовки графика 


МР (/ МР) i ; число передаточных партий 
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ТСМАХ 0) 
(COMMAND "TEXT" ВТ "0" (STRCAT " ММ ТМ С TMO " 
" Длительность операций процесса при М = " (ТТОА М) 
w P = ital TITON PII] 


(ЗЕТО TD 0) 
(FOREACH EL LTC ; определение длит. послед. процесса 
(SETQ TN (NTH 0 EL) ; норма времени на операцию 
C (NTH 1 EL) ; число рабочих мест на операции 
о AAN TNI O) ; длительность выполнения операции 
TD ATD TOJ] ; длительность выполнения процесса 


) 
(SETQ КМ (/ 200.0 ТБ) ) ; определение коэффициента масштабирования 
(FOREACH EL LTC > 
(SETQ TN (NTH 0 EL) 
C (NTH 1 EL) 
PC (7 TING) 
TC (тек) 
(IF (> ТС TCMAX) (SETQ TCMAX ТС} } 
) 
(SETQ ТРМАХ (* ТСМАХ Р) ) 
(FOREACH EL LTC 
(SETQ TN (NTH 0 EL) 
C (NTH 1 EL) 
TMO (NTH 2 EL) 
BT (POLAR BT (* PI 1.5) 20) ; точка ввода данных 
ВТО (POLAR ВТО (* РТ 1.5) 20) ; точка начала партии 
BTT (POLAR ВТ 0 90) 


PO (ALU PTN] С) ; длительность изготовления партии . 
ТО (* ТО KM) ; скорректированная длительность 

ВТК (POLAR ВТО 0 TO) ; точка окончания изготовления партии 
T1 BTO 

T2 BTK) 


(COMMAND "TEXT" ВТ "0" (STRCAT " " (ТТОА ТТ) " " 
(RTOS TN 2 2} “ " (RTOS:C 2 "2 во) 
(ВЕРЕАТ МР 

(ЗЕТО ВТ2 Т2) 

(COMMAND "PLINE" T1 "И" 2 2 T2 "") 

(SETQ T1 (POLAR T1 0 TPMAX) 

T2 (POLAR T1 0 TO)) 

) 


(SETQ TMO (* TMO КМ} ; скорр. время межоперационных перерывов 
ВТО (POLAR ВТК 0 ТМО) 
I (+ I 1}) 

) 

(SETQ TPP (DISTANCE BTT ВТ2}  ; скоррект. длительность процесса 


TPP {/ TPP КМ) ) ; реальная длительность процесса 
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(COMAND "TEXT" (POLAR ВТ (* РТ 1.5) 20) "0" 

(ЗТАСАТ " Дпительность параллельного " 
“производственного процесса TPP = " (RTOS TPP 2 2)}} 

(COMMAND "ZOOM" "АЦ." *" )) 

ARL (1020.5; (3 11-0) (8.5350.0)) 60 10) 


Результат выполнения функции (PAR1...) представлен на рис. 6.25. 


ММ ТМ С TMO Длительность операций процесса при М =60иР = 10 


1 4.00 2.00 0.50 


2 3.00 1.00 1.00 


3 4.50 3.00 1.50 


Длит. последовательно-параллельного производственного процесса ТРР = 217.93 


Рис. 6.25. Параметреское изображение параллельного способа выполнения 
производственного процесса 


6.4. Оптимизация загрузки оборудования 
6.4.1. Постановка задачи 


- Необходимо организовать производство нескольких видов изделий, каж- 
дое из которых должно быть обработано на двух станках (оборудовании...). 
Известно время и последовательность обработки каждого изделия на каж- 
дом станке (см. табл. 6.2). Требуется определить такую последовательность 
запуска изделий в производство, чтобы суммарное время на изготовление 
всех изделий на двух станках было минимальным. 


6.4.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Время обработки ]-го изделия на 1-ом станке обозначим T. Предполагает- 
ся, что время перехода изделия от одного станка к другому незначительно, 
им можно пренебречь или включить в длительность операции. 


Таблица 6.2 
С. \И. 
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Каждое изделие обрабатывается вначале на первом станке, затем на вто- 
ром. Обработка изделия на первом станке должна быть завершена прежде, 
чем она начнется на втором. 

Исходный порядок запуска изделий в производство, который, может 
быть, и не самый оптимальный, представим следующим образом: 

И, т И; i И, = И, dia Ns 

Процесс изготовления изделий отобразим графически (см. рис. 6.26). 

Критерий оптимизации представляет собой суммарное время обработ- 
ки изделий на двух станках (T) и определяется как сумма времени про- 
стоев второго станка в ожидании изделий с первого станка и времени об- 
работки этих изделий на втором станке: À 


M M 
Т=УТ, +» Т,, =(5+2+3+6+6+7)+(6+3+2+1)=29+12=41 
ji 1 i 
Поскольку время обработки изделий на втором станке согласно условию 
задачи не изменяется, то суммарное время обработки изделий можно умень- 
шить за счет изменения порядка запуска изделий в производство. Для ре- 
шения этой задачи разработаны различные алгоритмы решения. Рассмот- 
рим один из наиболее простых и часто используемых — алгоритм Джонсона. 
Оптимизация запуска изделий в производство — это типичная комби- 
наторная задача, решение которой состоит в изменении порядка запуска 
изделий в производство. Следовательно, если перебрать все возможные 
варианты запуска изделий в производство (число вариантов М равно N!), 
то для нашей задачи М = 6! = 720. 


6.4.3. Разработка последовательности действий 
и комплекса функций для расчета и изображения 
оптимальной загрузки двух станков 


Алгоритм Джонсона значительно сокращает, а также упрощает процесс 

поиска оптимального варианта и состоит из трех этапов: 

1. Поиска наименьших элементов. В табл. 6.2 находим минимальное вре- 
мя (это время обработки 2-го изделия на втором станке) и отмечаем 
его звездочкой. 

2. Изменения порядка запуска изделий в производство. 

Если наименьший элемент (время обработки изделия) относится к пер- 
вому станку, то изделие первым запускается в производство и его переме- 
щают в начало новой таблицы (см. табл. 6.3). 

Если наименьший элемент (время обработки изделия) относится ко 
второму станку, то изделие запускается в производство последним и его 
перемещают в конец новой таблицы (см. табл. 6.3). 


10 — 1278 


290 Создание подсистем для выполнения инженерных расчетов. 


Исходный порядок запуска изделий в производство 


15з=3 
| 
Тпз=2 
Общая продолжительность работ ТРР = 41.00 


Рис. 6.26. График запуска изделий в производство 


Когда имеются несколько наименьших элементов (время обработки из- 
делия) и они относятся к первому (второму) станку, то изделие первым 
(последним) запускается в производство, то есть его перемещают в начало 
(конец) новой таблицы (табл. 6.3). Если наименьшие элементы (время об- 
работки изделия) относятся как к первому станку, так и ко второму, то 
изделия перемещают в начало или конец новой таблицы согласно выше- 
изложенным правилам. 

Перемещенное в начало (конец) таблицы изделие помечается звездоч- 
кой, переносу в дальнейшем не подлежит и в расчете не учитывается. 
В нашей задаче минимальный элемент относится ко второму станку, сле- 
довательно, изделие с минимальным временем обработки на втором стан- 
-ке обрабатывается последним (см. табл. 6.3). Это изделие, отмеченное звез- 
дочкой, как и весь столбец полностью, переносятся в конец табл. 6.3. 

После перемещения изделия в начало (конец) таблицы алгоритм расче- 
та повторяется с первого этапа до тех пор, пока изделия можно переме- 
щать. Напомним, что перемещенные изделия (нзделия, отмеченные звез- 
дочкой) в дальнейших расчетах не участвуют. В окончательном виде 
таблица запуска изделий в производство для нашей задачи представлена 
ниже (см. табл. 6.4). 

Таким образом, оптимальный порядок запуска изделий в производство 
будет выглядеть следующим образом: 

НН -3И*-И —И--И И, 


Таблица 6.3 


сли [и [и _ 
ГСтиокт [6 [6 


`` 
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Таблица 6.4 


После определения оптимального порядка запуска изделий в про- 
изводство вычисляется суммарное время изготовления всех изделий 
(см. рис. 6.27). 

Суммарное время обработки изделий (Т) определяется как сумма вре- 
мени простоев второго станка в ожидании изделий с первого станка и вре- 
мени обработки этих изделий на втором станке. 

M M 

T=% T, +» T,;=(7+6+6+5+3+2)+(4+1)=29+5=34 

ji j1 

Ha. puc. 6.27 видно, что время простоя второго станка существенно CO- 
кратилось, следовательно сократилось время обработки всех изделий, оно 
составило T = 34. Таким образом, суммарное время изготовления всех из- 
делий сократилось на 17%. 

Для расчета и создания графического изображения онтимального по- 
рядка запуска изделий в производство необходимо: 

° определить местоположение заголовка, базовых точек (для создания 

графического изображения таблицы и графиков). Положим, что нача- 
ло заголовка находится в точке TT с координатами X = 10, a Y = 200. 
Базовая точка ввода данных в таблицу находится в точке ВТ с коорди- 
натами Х = 10, а У = 190. Начальными точками для прорисовки гра- 
фиков являются ВТ1 и ВТ2, которые смещены по отношению к точке 
ВТ и ВТ1 вниз на 40 и 20 единиц соответственно; 


Оптимальный порядок запуска изделий в производство 


12в=7 Tz; 76 Tz2s=6 121=5 [23=3 1Т22=2 
l 


Тг2=1 
Общая продолжительность работ ТРР = 34.00 i 


Рис. 6.27. График оптимального запуска изделий в производство 


10* 
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* построить таблицы исходных данных и результатов расчета для об- 
легчения анализа данных. Построение будем осуществлять в цикле по 
числу изготавливаемых изделий с помощью специально созданной 
функции (KLETKA), которая строит клетку таблицы; 

e сформировать графическое изображение процесса изготовления изде- 
лий на первом.и втором станках для того, чтобы определить общую 
продолжительность всего процесса. График изготовления изделий 
может выходить за пределы экрана. Чтобы этого не случилось, следу- 
ет определить коэффициент масштабирования КМ, с помощью кото- 
рого корректируется время изготовления изделий; 

° изменить порядок изготовления изделий согласно алгоритму Джонсона 
для оптимизации процесса; 

* отобразить график изготовления изделий на первом и втором станках 
для того, чтобы определить общую продолжительность выполнения 
всего процесса. 

Для отображения таблицы и графиков определим на AutoLISP место- 

положение заголовка и базовых точек: 

COMMAND "LIMITS" "0,0" “297,210" "ZOOM" "А"} 


(COMMEND "СТУГЕ" во не nan = пе nn nnn в 


(ЗЕ та) ; базовая точка ввода заголовка таблицы 
ar И.) ; базовая точка ввода данных в таблицу 
I 0) 
(REPEAT 2 ; цикл изображения исходных 
; данных и результатов 
(SETVER "BLIPMODE" 0) ; отключение изображения маркера 
(IF (= I 0) (COMMAND "TEXT" TT "0" 


"Исходный порядок запуска изделий в производство") 
(СОМ "TEXT" "107100" "0" 
"Оптимальный порядок запуска изделий в производство") ) 


(SETO  ВТЕ (POLAR ВТ (* РТ 1.5) 40} ; точка ввода графика 
BT2 (POLAR ВТ1 (* PI 1.5) 20) ; точка ввода графика 
BTT ВТ2 и 
TD 0) 


Для ввода заголовков таблиц в функциях (COMMAND...) использует- 
ся одна команда графического редактора "ТЕХЛ". 
Построение и ввод данных в таблицу можно организовать в виде цикла: 


(FOREŁCE EL LT ; цикл построения таблицы с данными 
(SETO N (NTH 0 EL} ; номер изготавливаемого изделия 
T1 (NTH 1 EL) ; время изготовления изделия на 1-м станке 
T2 (NTH 2 EL) ~ ; время изготовления изделия на 2-м станке 


TD {+TD T1 T2)) ; время для корректировки графика 


1 ЧА 


vn 


— o i e 
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(KLETKA BT) ; вызов функции для изображения клетки 
(COMMAND “TEXT” (POLAR K4 (/ РТ 9) 4) "0" (ТТОА № ) 
_ (КЬЕТКА K4) | 
(COMMAND "TEXT" (POLAR K4 (/ РТ 9) 4) "0" (RTOS T1 2 2)) 
(KLETKA K4) i 
(COMMAND "TEXT" (POLAR K4 (/ PI 9) 4) "0" (RTOS T2 2 2)) 


(SETO BT (POLAR BT 0 30)) ; базовая точка следующей клетки 


) 
Для создания клетки таблицы используется функция (КГЕТКА...), ko- 
торая может быть записана так: 
‚ Функция изображающая клетку таблицы 
(DEFUN KLETKA (К1) 
(SETQ K2 (POLAR K1 0 30) 
K3 (POLAR K2 (* PI 1.5) 10) 
K4 (POLAR K1 (* PI 1.5) 10)) 
(COMMAND "LINE" K1 K2 КЗ K4 K1 "") 


) 
Для вывода в таблицу числовых данных в функции (COMMAND...) 


используется команда графического редактора "TEXT". 

Функция (ТТОА М) преобразует целое число — номер изделия М в стро- 
ковую константу, чтобы ввести затем в таблицу. 

Функция (RTOS TMO 2 2) преобразует действительное число — время 
изготовления изделия в строковую константу, чтобы затем ввести это чис- 
ло в таблицу. Второй аргумент функции - 2 указывает, что число должно 
быть представлено в десятичном виде. Третий аргумент — 2 указывает, что 
число знаков после запятой должно быть равно двум. 

Отображение графика изготовления изделий на первом и втором стан- 
ках для исходного варианта и определение общей продолжительности все- 
го процесса можно выполнить следующим образом: 


(SETQ KM (/ 400 TD) ; определение коэффициента маситабисования 
T1 (NTH 1 (NTH 0 LT)) ; время изготовления 1-го изделия 
TL (TL КМ) ; скорректированное время 
ВТ2 (POLAR ВТ2 0 Т1)) ; начало отображения 2-го графика 
(ЗЕТУАВ "BLIPMODE" 1) ; ввод маркера на графиках 
(FOREACH EL LT ; цикл отображения графиков 
(SETO М (МТНО EL) ; номер изготавливаемого изделия 
T1 (NTH 1 EL} ; время изготовления изделия 
; на 1-м станке 
т” T1 KM) ; скорректированное время 
; изготовления 
T2 (NTH 2 EL) ; время изготовления изделия 


; на 2-м станке 


о АА 
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y ® 


T2 (> T2 KM) ; скорректированное время 
; изготовления 
ВТК1 (FOLAR ВТ1 0 Т1}) ; точка окончания 


изготовления изделия 
(COMAND "PLINE" ВТ1 "W" 2 2 ВТК] "") ; отображение 1-го графика 
(SETO БЕ ВЕЕЕ 

BTT2 (POLAR ВТК1 (* РТ 1.5) 20)) 
(F (>= (NIE 0 ВР) (NTH 0 BT2)) (SETQ BT2 BTTZ) |) 
(SETO 5TK2 (POLAR BT2 0 T2)) 
(COMAND "DLINE" BT2 "W" 2 2 BTK2 ""}  ; отображение 2-го графика 
(SETO BT2 БТК2) 
) 
(SETQ Те 


DISTANCE BTT ВТК2) 

TPP KM)) 

VOLAR BTT (* PI 1.5) 15) "0" (STRCAT 
льность работ TPP = " (RTOS TPP 2 2})) 


Изменение порядка изготовления изделий согласно алгоритму Джонсо- 


| 


( 
(COMMAND “ТЕХ 
KON 


га будет выглядеть следующим образом: 


(SETQ ar (1090) ; точка ввода текста для 
; оптимального варианта 
ве) ; список с перемещением изделий 
; в начало таблицы 
ва”) ; список с перемещением изделий 
; в конец таблицы 
ММ (LENGTH ЬТ)) ; определение числа изготавливаемых 
; изделий 
(ЕЕРЕЕТ ММ 
(SETQ TMIN 1000.) 
(FOREACH EL LT 


(SETO TI (NTH _I EL) 

T2. (NTH 2 EL)) 
(IF (< T1 TMIN) (SETQ TMIN T1 NS 1)) 
IF (< T2 TMIN) (SETQ TMIN T2 NS 2)) 


) a 
(РОВЕЁСН EL LT 
(SETO T1 (NTE 1 EL) ; время изготовления изделия 
; на 1-м станке 
T2 (NTH 2 ЕВ) ) ; время изготовления изделия 


; на 2-м станке 
(ТЕ (ÆND (= T1 TMIN) (/= T1 T2) (= №1)} 
(SETO L1 (CANS EL 11) LT (DEL EL ЬТ))) 
(IF (АМО (= T2 TMIN) (= №2)) 
(SETQ L2 (CONS EL L2) LT (DEL EL LT) ) )) 
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) 

(SETQ LT (APPEND L1 L2) 
I (тт) 

) 


Функция (CANS...) добавляет элемент EL в конец списка LT, a р 
ция (DEL...) удаляет элемент EL из списка LT. 


; Функция добавления элемента EL в конец списка LT 
(DEFUN CANS (EL LT) 
(SETQ LT1 (REVERSE LT) 
LT2 (CONS EL LT1)) 
(REVERSE. LT2) 
) 


; Функция удаления одного элемента EL из списка LT 


(DEFUN DEL (EL LT) 
(COND ( (NULL LT) NIL) 
( (EQUAL EL (CAR LT)) (CDR LT)) 
(T (CONS (CAR LT) (DEL EE (CER LT))))) 


P~ 


) 
В окончательном виде функция (DJON...), которая обеспечивает расчет 


и графическое отображение оптимальной загрузки двух станков (алгоритм 
Джонсона), представлена ниже. 


6.4.4. Функция для расчета и изображения процесса 
оптимальной загрузки двух станков 


хххххжхххххххххххххххххкАхххххХхххХкхххкхХххххХХхХхкХАХХХУХхКХКАХХХКААХАКХ 


; Функция (DJON LT) обеспечивает расчет и графическое отображение 
; оптимальной загрузки двух станков (алгоритм Джонсона} 
;‚ Аргументы функции: 
; LT - список норм времени выполнения каждой операции на 
‚ двух станках {( (1 T11 T21) (2 T12 T22) 33} ) 
; TIJ.. - время изготовления J-rO изделия на I-M станке 
; Пример использования функции (DJON LT) 
г (DJON ЩЕ В 5) (24 2] 1363] 1156. 678) (647) \) 
+ kkkkkákákěkxěkkěkěkkkkkkěkkkěxkkkkkkkkkkkkkkžkkkěkkkkkkěxkkkkkkkkkkkkkžkkk*šžxk*ěkkkkkx*x*ķ 
(DEFUN DJON (LT) 
(SETVAR "CMDECHO" 0)-; отключение эха команд 
(COMMAND "LIMITS" "0,0" "297,210") 
(COMMAND "ERASE" "ALL" "") 
(COMMAND “GTYLE" ии nn ngn ngn nm nn nu nn) 
(ЗЕТО ТТ ' (10 200) ; базовая точка ввода заголовка таблицы 
ВТ ' (10 190) ; базовая точка ввода данных в таблицу 
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I 0) 
(REPEAT 2 | ; цикл отображения исходных данных 
; и результатов = 

(ЗЕТУАВ "BLIPMODE" 0); отключение отображения маркера 
(ТР (= I 0) (COMAND "TEXT" TT "0" 

“Исходный порядок запуска изделий в производство") 

(COMAND "TEXT" "10,100" "0" 

“Оптимальный порядок запуска изделий в производство") )} 


(SETQ BT1 (POLAR ВТ (* РТ 1.5} 40) ; точка ввода графика 
ВТ2 (POLAR ВТ1 (* PI 1.5) 20) ; точка ввода графика 
ВТТ ВТ2 
TD 0) 
(FOREACH EL LT ; цикл построения таблицы с данными 
(SETO N (NTE 0 EL) ; номер изготавливаемого изделия 
TIL (Nn 1L EL) ; время изготовления изделия на 1-м станке 
T2 (WE 2 EL) ; время изготовления изделия на 2-м станке 
TD (77 T1 T27) ; время для корректировки графика 
(KLETKA ВТ) ; вызов функции для изображения клетки 


(COMAND "TEXT" (POLAR K4 (/ РТ 9) 4) "0" (ТТОА М)) 
(КРЬЕТКА K4) 
(СОММАМО "TEXT" (POLAR K4 (/ PI 9) 4) "0" (RTOS 7122} }. 
(KLETKA КА) 
(COMMAND "TEXT" (POLAR КА (/ PI 9) 4) "0" (RTOS T2 2 2}) 
(SETQ BT (POLAR BT 0 30)) ; базовая точка следующей клетки 
) 
(SETQ — КМ (/ 400 TD) ; определение коэффициента 
; масштабирования 
T1 (NTH 1 (NTH 0 LT)) ; время изготовления 1-го изделия 


ТЕ (* ТЕ KM) ; скорректированное время 
BT2 (POLAR ВТ2 0 711)) ; начало изображения 2-го графика 
(ЗЕТУАР "BLIPMODE" 1) - ; ввод маркера на графиках 
(FOREACH EL LT ; цикл отображения графиков 
(SETO М (NTH ОЕ) ; номер изготавливаемого изделия. 
TL (NTA ВЕБ) ‚ время изготовления изделия 
7 на 1-м CTAHKE 
T1 (* T1 KM) ; скорректированное время изготовления 
T2 (NTH 2 EL) ; время изготовления изделия 
; на 2-м станке 
T2 (= T2 KM) ; скорректированное время изготовления 
ВТК] (POLAR ВТ1 0 TLI ; точка окончания 


| ; изготовления изделия 
(COMMAND "PLINE" ВТ1 "W" 2 2 ВТК1 ""} ; 1-й график 
(SETQ BT1 ВТК1 


Оптимизация загрузки оборудования 


ВТТ2 (POLAR ВТК1 (* РТ 1.5) 20)) | 
(ТР (>= (NTH 0 BTT2) (NTH 0 ВТ2)) (SETQ ВТ2 BTT2)) 
(SETQ ВТК2 (POLAR ВТ2 0 Т2) } Per 
(COMMAND "PLINE" ВТ2 "W" 2 2 BTK2 "") ; 2-й график 
(SETQ BT2 BTK2) | 
} 
(SETQ TPP (DISTANCE BTT ВТК2} 
TPP (/ TPP KM}) 
(COMMAND "TEXT" (POLAR BTT (* PI 1.5) 15) "0" (STRCAT 
"Общая продолжительность работ TPP = " (RTOS TPP 2 2)}} 
(SETO ВТ '(10 90) | ; точка ввода текста для 
; оптимального варианта 
LIY: () 
L2% i] 
| ММ (LENGTH БТ) } 
(REPEAT ММ 
(SETQ TMIN 1000.) 
(FOREACH EL LT 
(SETQ T1 (NTH 1 EL) 
T2 (NTH 2 EL}) 
(IF (< T1 TMIN) (SETQ TMIN T1 NS 1)) 
(IF (< T2 TMIN) (SETQ TMIN T2 NS 2)) 
} 
(FOREACH EL LT 
(SETQ ТЕ (NTH 1 EL) 
T2 (NTH 2 EL}) 
(IF (AND (= T1 TMIN) (/= T1 T2) (= №1)) 
(SETQ L1 (CANS EL L1) LT (DEL EL LT))) 
(IF (AND (= T2 TMIN) (= №2)} 
(SETQ L2 (CONS EL L2) LT (DEL EL LT)})}) 
) 


(SETQ LT (APPEND L1 L2) ; новый порядок запуска изделий 


ТТ) ; в производство 
) 
(COMMAND "ZOOM" "ALL" ""} 
) 
; Функция изображения клетки таблицы 
(DEFUN KLETKA (K1) 
(SETQ K2 (POLAR K1 0 30) 
K3 (POLAR K2 (* PI 1.5) 10) 
K4 (POLAR K1 (* PI 1.5) 10)) 
(COMMAND "LINE" K1 K2 КЗ K4 K1 "") 
} 
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Создание подсистем для выполнения инженерных расчетов 


ыы A 


„= 
© у — — —^ — 


t) 


дения зпеменчта EL в конец списка LT 


try 
1-4 
pa 
РУ 


(ЕТО LTI (REVERSE LT) 
LTR (CORS EL LT1)) 
(RENVERSE LT2) 
) 
; чунхция удаления одного элемента EL из списка LT 
(ВЕгОМ DEL (EL LT) 
COND {(XULL LT) NIL) 


КЕДЫ SL (CAR LT)) (CDR LT)) 
P (CONS (CAR LT) (DEL EL (CDR LT))})?)) 


> — n y d -~ Fa o erg Г] м 
< E r =) ) 


DJON | (242) (3563) (1456) (576) (647))) ; вызов функции 
Результат выполнения функции (DJON...) представлен на рис. 6.28. 


Исходный порядок запуска изделий в производство 


| 1 2 [3 | 
`6.00 400 6.00 15.00 |7. 
‘500 | 2.00 _| 3.00 6.00 6.0 


Общая продолжительность работ ТРР = 41.00 


Оптимальный порядок запуска изделий в производство 


Е 
400 |500 __| 7.00 
700 (|600 | 6.00 


Общая продолжительность работ ТРР = 34.00 


Рис. 6.28. Оптимизация запуска изделий в производство 
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В этой главе описывается отладчик 
Visual LISP, приемы создания автоном- 
ных приложений в среде Visual LISP. 
Здесь же рассматриваются встроен- 
ные функции интегрированной среды 
Visual LISP. 
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7.1. Отладка программ в среде Visual LISP 


Отладка — как правило, наиболее трудоемкая стадия в разработке любой 
программы. Visual LISP включает мощный отладчик, который позволяет: 

* запустить программу Trace (трассировка программы); 

* отслеживать значения переменных во время выполнения программы; 

* просмотреть последовательность значений выполняемых выражений 
(Функций); 

° просмотреть значения параметров, используемых внутри функцио- 

нальных обращений; 

* запустить программу прерываний Interrupt; 

* производить пошаговое выполнение программы; 

* просмотреть содержимое стека. 

Для решения этих задач Visual LISP имеет следующие средства: 

e Break loop mode (Режим прерываний в цикле), который позволяет 
останавливать выполнение программы в определенных точках, про- 
сматривать и изменять значения объектов (переменных, символов, 
Функций и выражений) во время прерывания; 

e Inspectors (Инспектора), которые позволяют получать детализиро- 
ванную информацию об объектах в окне Inspector dialog Window 
(Диалоговое окно просмотра); 

e Watch Window (Окно наблюдений), которое позволяет наблюдать 
значения переменных во время выполнения программы. Содержание 
окна наблюдений Watch Window модифицируется автоматически; 

e Trace Stack Facility (Средство трассировки стека), которое позволяет 
просматривать функциональный стек вызовов — механизм, с помощью 
которого Visual LISP записывает последовательность выполнения 
функций; 

e Trace Facility (Средство трассировки), которое позволяет регистриро- 
вать обращения и значения отслеживаемых функций в специальном 
окне Тгасе (Трассировка). 

Отладчик может приостановить выполнение программы до или после 

выполнения любого выражения. 

Управлять отладкой можно из разных мест Visual LISP, включая тексто- 

вый редактор, окно консоли, различные меню и кнопки инструментальной 
панели Debug (рис. 7.1). 


[o or 2 |0 é © 


Рис. 7.1. Кнопки инструментальной панели Debug 


O 
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> PRIYET1W. LSP 
(DEFUN PRIUET () 
(SETQ IMY (GETSTRING "\n Введите Ваше имя ! --- ")) 
( COMMAND ', 
“STYLE” “” “TIMES NEW ROMAN CYR” “607” 37 a a e ay | 
| “TEXT” "20,1500" “O” (STRCAT “AOPOTON “ IMY ” $t??“) | 
| “ТЕХТ“ “3.106” “20° “ АВТОР BAC ПРИВЕТСТВУЕТ “ = 
ТЕХ 250. 50. От. 33° GER ВАМ У E "Чт. В ‚= | 
| “ZOOM” “А” F Текст приветствия будет во весь экран. : 
) 
) 


го ии хи шлю я свя 
г м м _ = F F 3 _ 9 


Puc. 7.2. Окно текстового редактора 


Рассмотрим процесс установки точки прерывания, например, в начале 
второй строки программы PRIVET1W.LSP в текстовом окне редактора 
(рис. 7.2). 

Om Цереместите курсор в позицию открывающейся круглой скобки во 

%1 второй строке файла PRIVET1W.LSP. Щелкните по кнопке Toggle 

breakpoint (Установить/удалить точку прерывания) на инструмен- 
тальной панели Debug (Отладка) или выберите пункт Toggle break- 
point (Установить/удалить точку прерывания) падающего меню 
Debug (Отладка) либо нажмите комбинацию клавиш Alt+D. Во 
всплывающем подменю выберите пункт Toggle breakpoint ( Устано- 
вить/удалить точку прерывания) или нажмите клавишу Е9. На экра- 
не в позиции курсора появится точка прерывания (красный прямоу- 
гольничек), если ее там не было. Если данная точка там была, она, 
соответственно, исчезнет. | 

Когда курсор находился не в позиции круглой скобки, возможны два 

варианта: 

e курсор находился до скобки или 7 
после скобки, а далее есть еще 
вложенные функции. В таком (3) се! break point here? 
случае на экране появится окно 
Question (Вопрос) с вопросом 
Set break point here? (Устано- 
вить точку прерывания здесь?), 
как показано на рис. 7.3. . Рис. 7.3. Окно Question 
Вам необходимо щелкнуть по кнопке Да (Yes) или Нет (№). В noc- 
леднем случае позиция курсора изменится; 

* курсор находился внутри выражения, в котором далее вложенных 
функций нет. В таком случае na экране появится окно Stop (Оста- 
новить) с предупреждением Illegal position for break point (Недо- 
пустимая позиция для точки прерывания), как показано на рис. 7.4. 
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Гы q Щелкните по кнопке Load active edit pym 


window (Загрузить текст активного 

окна редактирования) на инструмен- | Хх) Шеда! position for break point 
тальной панели Tools (Инструмен- | 
ты) или выоерите пункт Load Text in 
Editor (Загрузить текст из редакто- 
ра) падающего меню Tools (Инстру- 
менты). На экране появится окно 
консоли Visual LISP (рис. 7.5). 


| 
; 1 form loaded from #<editor “С:/МОИ ДОКУМЕНТЫ/РВТОЕТТИ Е $Р“ > 
_$ 


Рис. 7.5. Окно консоли Visual LISP 


Загрузите и выполните в окне консоли Visual LISP функцию (PRIVET). 

Во время ее выполнения отладчик возвращает пользователя в окно тек- 
стового редактора и останавливает выполнение функции (PRIVET...) в точ- 
ке прерывания, которую пользователь установил ранее, выделив все выра- 
жение (рис. 7.6). 

Можно последовательно продвигаться по программе, выполняя одно 
или несколько выражений до установленной точки прерывания. Для этого 
щелкните по кнопке Step Into (Шаг внутрь) или выберите одноименный 


SPRNETIW.LSP RE E 
(DEFUN PRIUET () = 
SETQ IMY (GETSTRING “\п Введите Ваше имя f --- ” 
( COMMAND », 
"OTLEY “ТОНЕ HEW: POMON CYR” pO P gane. Seca i 
“TEXT” “20,1500” “09” (STRCAT “ДОРОГОЙ “ IMY. ” ?1?”) i 
EAT? ТО "2090" ” RETOP BAC ПРИВЕТСТВУЕТ 
“TEXT” “250,50” “09” ~“  YCNEXA BAH 111“ 
“ZCOM“” “я” ; Текст приветствия будет во весь экран ; 
) : 
) v 
4 2 a 


Рис. 7.6. Окно текстового редактора 
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Y PRIVETIW.LSP 
| (DEFUN РАТУЕТ () z 
| (За СЕТЗТАТМС "\n Введите Ваше имя ! --- ” 
| ( COMMAND 
| “STYLE” “у: TIMES NEW ROMAN СУБ”. "бб т Е 
| “TEXT” "20,1500" “0” (STRCAT “ДОРОГОЙ “ IMY “ 1+1“) 
| ТЕЛЕ” 5.160" "20" “ ЯВТОР BAC ПРИВЕТСТВУЕТ 
| "TEXT" "250.50" “0” г“ ЧСПЛЕХЯ BAH '*'° й 
“ZOOM” “A” ; Текст приветствия будет во весь экран _ 
) + 


i ) v 
KI |.* Г р} и м t x а“ ыы | p t ем “. 7 Г 


Рис. 7.7. Окно текстового редактора > 


пункт из всплывающего меню Debug (Отладка) (Alt+D). Чтобы вызвать . 
пункт Step Into (Шаг внутрь), можно также нажать клавишу F8. Выполне- 
ние программы начинается и останавливается перед выполнением внут- 
реннего выражения. 

Копка Step indicator (Индикатор шага) последияя на инструментальной 
панели Debug (Отладка). Она находится в активном положении, когда вы 
просматриваете программу по шагам. Символ на кнопке указывает на ос- 
тановку перед открывающей круглой скобкой. 

Щелкните по кнопке Step Into (Шаг внутрь) снова. Активизируется 
система AutoCAD и в командной строке AutoCAD появится запрос: 

Command: 
Введите Ваше имя ! --- 

Наберем, к примеру, имя Евгений и нажмем клавишу Enter (Ввод). Ar- 
тивизнруется система Visual LISP, и мы снова вернемся в текстовое окно 
редактора, однако курсор будет находиться уже в конце выполненной pyn- 
кции. Щелкнем по кнопке Step Into (Шаг внутрь) еще раз, и курсор nepe- 
местится в конец всего выражения. Щелкнем по кнопке Step Into снова, 
и курсор переместится в начало следующего выражения (рис 7.8). 


пион 
PRIVETIW. LSP | 


E 


(DEFUN PRIVET () = 
SETQ IMY (СЕТЗТВТМ@ “\п Езедите Ваше ина ! --- “”)) 
( COMMAND 
"ЗТУЬЕ“ “~ “TIMES NEW ROMAN CYR” “60” "ge me mse oes» ss 
“TEXT” "20,1500" “0“ (STRCAT “ДОРОГОЙ " IMY "“ pẹ” 
“TEXT” “3,100” "20" “ ABTOP BAC ПРИВЕТСТВУЕТ 
“TEXT” "250,50" “0“ “ YCNEXA BAM 111 


“ZOOM” “Я” ; Текст приветствия GUAET во весь экран 


Рис. /.8. Окно текстового редоктора 
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Можно сделать шаг с выполнением всего выделенного выражения. Для 
этого следует щелкнуть по кнопке Step Over (Шаг через) или выбрать 
одноименный пункт из падающего меню Debug (Отладка) (Alt+D). Mox- 
но также нажать комбинацию клавиш Shift+F8. Кнопка Step Over позво- 
ляет оценить выражение со всеми вложенными выражениями, а затем ос- 
тановиться в конце всего выражения. При этом курсор перемещается 
в конец выражения. 
Результат этих действий можно увидеть, если активизировать систему 
AutoCAD путем нажатия кнопки Activate AutoCAD (Активизировать 
AutoCAD) или выбора одноименной команды падающего меню Window 
(Alt+ WW). 
При необходимости можно OT- 
следить также значения каждого 
выражения. Чтобы проверить зна- 
чение последнего выполненного 
выражения, выберите пункт Watch 
Last Evaluation (Наблюдение noc- 
леднего значения) из падающего 
меню Debug (Отладка). На экране 
появится окно Watch (Окно на- Рис. 7.9. Окно значения переменной 
блюдений), содержащее значение "РАЗГМае* 
системной переменной *ГА$ЗТ-УАГОЕ*, в которой Visual LISP всегда co- 
храняет значение последнего выполненного выражения (рис. 7.9). 
Чтобы отслеживать значения переменных во время выполнения про- 
граммы, можно использовать окно Watch (Окно наблюдений). Для этого 
в окне текстового редактора, где открыт, например, файл PRIVET1iW.LSP, 
важды щелкните по любому те- 

мари мои переменной = дня 
ущем: ar АС 

меру, [МУ. 

Если щелкнуть по кнопке Add И 
Watch (Добавить наблюдение), ||му-"Евгений" 
Visual LISP передаст имя nepe- 
менной IMY окну Watch и отобра- 
зит текущее значение переменной — 

в окне. Рис. 7.10. Окно наблюдений значений 

Допустим, окно Watch (Окно T переменных 
наблюдений) не было открыто, од- 
нако необходимо просмотреть значения переменной. В таком случае окно 
можно открыть, если выбрать пункт Watch Window (Окно наблюдений) 
из падающего меню View (Просмотр) Visual LISP 
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Установить наблюдение за ne- [бро EJ 


ременной можно и другим спосо- | 

бом. Щелкните по кнопке Add | Seeerei 
Watch (Добавить наблюдение) — Е | 
это первая кнопка (с очками) 
в окне Watch. На экране появит- | 
ся окно Enter expression to watch Рис. 7.11. Окно ввода выражения 
(Введите выражение для наблю- - _ длянаблюдений 

дений), как показано на рис. 7.11. 

В этом окне можно ввести имя переменной, которую необходимо про- 
смотреть. Самое близкое к курсору имя переменной Visual LISP копирует 
в окно автоматически. Если вы хотите просматривать другую переменную, 
введите ее имя. Visual LISP модифицирует зпачения переменных в окне 
Watch (Окно наблюдений) после выполнения каждого шага. 

Инициализировать шаг выполнения можно, если щелкнуть мышкой по 
кнопке Step Over (Шаг через) или дважды нажать комбинацию клавиш 
Shift+F8. Значение [МУ в окне Watch (Окно наблюдений) изменится (до 
выполнения оно было NIL). 

Чтобы продолжить выполнение программы до следующей точки преры- 
вания или до коица (если точек прерывания HET), щелкните по кнопке 
Continue (Продолжить) на инструментальной панели Debug (Отладка) 
или выберите пункт Continue (Продолжить) падающего меню Debug 
меню Visual LISP. 

Кроме установки точек прерывания Visual LISP обеспечивает следую- 
щие режимы управления выполнением программы: 

e Break Оп Error (Прерывание по ошибке) - активизирует автомати- 
ческое прерывание всякий раз, когда во время выполнения програм- 
мы возникает ошибка. Для включения этого режима необходимо вы- 
брать пункт Break Оп Error (Прерывание по ошибке) падающего меню 
Debug меню Visual LISP; 

e Stop Once (Остановка сразу) — заставляет Visual LISP осгановиться. 
когда выполняется самое первое выражение LISP Для включения это- 
го режима необходимо выбрать пункт Stop Once (Остановиться Cpa- 
зу) падающего меню Debug; 

e Break оп function entry (Прерывание на входе функции). Во время 
прерывания текст функции будет отображаться в специальном окне. 
При этом можно включить или выключить флажок Debug-On-Entry 
(Отладка на входе) в интерактивном диалоговом окне Symbol Service 
(Обслуживание символов) или поместить внутри программы псевдо- 
комментарии; 
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e Debug top-level mode (Режим отладки верхнего уровня) — позволяет 
управлять загрузкой программы из файла или из окна редактора. Пре- 
рывания происходят перед выполнением каждого выражения верхнего 
уровня (типа DEFUN). Для включения этого режима необходимо вы- 
орать пункт General Options (Общие параметры) всплывающего меню 
пункта Environment Options (Параметры среды) падающего меню 
Tools (Инструменты) главного меню Visual LISP Затем щелкнуть по 
закладке Diagnostic (Диагностика) и убрать флажок в переключателе 
Оо not debug top-level (Не отлаживать на верхнем уровне). 

Обратите внимание, если режимы Debug top-level mode (Режим отлад- 
ки верхнего уровня) и Stop Once (Остановка сразу) включены, Visual 
LISP переходит в режим отладки каждый раз, когда загружается файл; 

e Animate (Оживить) — предполагает неоднократное использование 
команды Step Into (Шаг внутрь) с определенной задержкой. Окно pe- 
дактора в режиме Animate отображает выполняемые выражения, 
а окно Watch (Окно наблюдений) постоянно модифицирует значения 
переменных. Чтобы включить режим Animate, выберите пункт 
Animate (Оживить) падающего меню Debug (Отладка) главного меню 
Visual LISP. Когда режим Animate включен, режим Stop Once (Оста- 
новить сразу) игнорируется. 

Быстродеиствие анимации управляется значеннем задержки анимации. 
Для просмотра и установки задержки выберите пункт General Options 
(Общие параметры) из всплывающего меню пункта Environment Options 
(Параметры среды) падающего меню Tools (Инструменты) главного меню 
Visual LISP и щелкните по закладке Diagnostic (Диагностика). Время 3a- 
держки можно изменять в окошке Animate delay (Задержка анимации). 

Самый простой способ начать отладку — выбрать пункт Stop Once (Ос- 
тановить сразу) падающего меню Debug (Отладка) главного меню Visual 
LISP Выполнение первого выражения LISP будет прервано. Продолжить 
выполнение программы можно с помощью команд отладчика. Кроме того, 
начать отладку можно путем установки точек прерывания, как было пока- 
зано ранее. Во время прерывания соответствующее окно редактора текста 
Visual LISP показывает текущее выражение LISP в точке прерывания. 
Маркер прерывания появится в окне консоли, используя которое, можно 
изменять и модифицировать программу, где произошло прерывание. 
В окне Watch (Окно наблюдений) можно также исследовать переменные. 

Когда программа AutoLISP выполняется без включения отладки, Visual 
LISP выполняет ee в режиме Top Level (Верхний уровень) и Read-Eval- 
Print (Прочитать-Выполнить-Напечатать). В ходе выполнения выраже- 
ния в окне консоли Visual LISP отображается подсказка. 
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В случае если выполнение программы прерывается или приостанавли- 
вается, в окне консоли Visual LISP включается система управления npo- 
ходами. На экране появляется подсказка, которая начинается с числа, 
указывающего уровень прерывания. Например, когда прерывание возни- 
кает впервые, перед подсказкой появляется _1: 

2E 

При выходе из состояния прерывания (например, после выдачи коман- 
ды "ООП" (Выйти)), текущий Read-Eval-Print (Прочитать-Выполнить- 
Напечатать) цикл завершается, а предыдущий продолжается. Если значе- 
нне переменной изменяется в текущем цикле прерывания, оно будет 
использовано, когда выполнение продолжится. 

В Visual LISP существуют прерывания с продолжением (Continuable) 
и без продолжения (Мопсопипиа Ме). Продолжать выполнение можно 
после следующих видов прерывания: 

e режима Stop Once (Остановка сразу); 

e достижения функции, отмеченной для Debug оп entry (Отладка на 

входе); 

e достижения точки прерывания, установленной в программе; 

° щелчка по кнопке Pause; 

° режимов Step Over (Шаг через), Step Into (Шаг внутрь) или Step Out 

(Шаг вне). | | 

Во время прерывания при активном окне консоли и при отражении 
в подсказке текущего уровня прерывания имеется доступ для чтения-за- 
писи ко всем переменным среды, в которой произошло прерывание. Когда, 
например, прерывание произошло внутри фуикции, содержащей несколь- 
ко локальных переменных, изменить их значения можно, если использо- 
вать в строке подсказок в окне консоли функцию присваивания (ЗЕТО...). 

Управлять последующим выполнением программы при остановке вы- 
полнения программы в точке прерывания можно, если выбрать OHY из 
следующих команд падающего меню Debug (Отладка) или щелкнуть эк- 
вивалентную кнопку на панели инструментов: 
ль Reset to the top level (Возвратить на верхний уровень) — завершить 
= прерывание и возвратиться на самый верхний уровень Веа4-Еуа|- 

Print (Прочитать-Выполнить-Напечатать): 
£ Quit current level (Выйти из текущего уровня) — завершить прерыва- 
~= ние и возвратиться на один уровень вверх (уровень прерывания либо 
уровень Read-Eval-Print (Прочитать-Выполнить-Напечатать)); 
|=. Continue (Продолжить) — продолжить выполнение программы с точ- 
- ки прерывания. 


‚ ^ за 
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Пункты меню, которые начинаются со Step (Шаг), позволяют управ- 
лять пошаговым выполнением выражения: 


| T Step Over (Шаг через) — с выполнением всех вложенных выражений; 


| © Step Into (Шаг внутрь) — с заходом в первое вложенное выражение; 


|5 Step Out (Шаг вне) — с переходом во внешнее выражение. При этом 
выполняются все остающиеся вложенные выражения. 

После выхода из цикла прерывания к верхнему уровню консоли под- 
сказка консоли возвращается к ее первоначальному виду (без числового 
префикса). | 

Точка прерывания позволяет отмечать позицию в программе, в которой 
выполнение программы должно быть прервано. Устанавливать прерыва- 
ния можно до или после анализируемых выражений. 

Точки прерывания могут быть установлены только из окна текстового 
редактора Visual LISP Чтобы установить или удалить точку прерывания, 
переместите курсор в позицию, в которой следует остановить выполнение 
программы. Если необходимо остановить выполнение перед открывающей 
скобкой выражения, поместите курсор слева от выражения, щелкните 
кнопку Toggle breakpoint ( Установить/удалить точку прерывания) на HH- 
струментальной панели Debug (Отладка) или нажмите клавишу F9, что- 
бы установить точку прерывания. Для установки точки прерывания выбе- 
рите пункт Toggle breakpoint (Установить/удалить точку прерывания) из 
всплывающего меню Debug (Отладка) главного меню Visual LISP или 
щелкните правой кнопкой мышки и выберите пункт Toggle breakpoint 
(Установить/удалить точку прерывания) из всплывающего контекстного 
меню. Toggle breakpoint работает как переключатель «вкл\выкл». 

Если курсор помещается в неопределенную позицию, например, в сере- 
дину выражения, Visual LISP переместит курсор к самой близкой круглой 
скобке, и на экране появится запрос Set break point here? (Установить TOY- 
ку прерывания здесь?). , 

Когда вы согласны с местом установки точки прерывания, введите Yes 
(Да) либо № (Нет), если хотите установить точку прерывания сами. 

Позицию каждой точки прерывания Visual LISP отмечает цветным nps- 
моугольником, так что различать точки прерывания в программе неслож- 
но. По умолчанию активные точки прерывания отмечены красным цве- 
том, который можно изменить. Для этого выберите пункт Configure 
Current... (Текущая конфигурация) всплывающего меню пункта Window 
Attributes (Параметры окна) падающего меню Tools (Инструменты). На 
экране появится диалоговое окно Window Attributes (Параметры окна), 
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Рис. 7.12. Окно обслуживания точки прерывания Breakpoint service 


где в раскрывающемся списке следует выбрать пункт (строку) ВРТ- 
ACTIVE, а затем желаемый цвет. 

При использовании нескольких точек прерывания впутри файла полез- 
но отключить на время одну или болынее количество точек прерывания. 
Однако для использования точки прерывания в дальнейшем ее позицию 
необходимо оставить. Это сокращает время на удаление и восстановление 
точек прерывания. | 

Чтобы отключить точку прерывания, установите курсор на маркер точки 
прерывания и щелкните правой кнопкой мышки. Из всплывающего меню 
выберите пункт Breakpoint service (Обслужить точку прерывания). Visual 
LISP покажет дналоговое окно обслуживания точки прерывания Break- 
point service (Обслужить точку прерывания), показанное на рис. 7.12. 

Чтобы временно отключить точку прерывания, щелкните кнопку Dis- 
able (Отключить) в окне Breakpoint service (Обслужить точку прерыва- 
ния). При отключении Visual LISP изменяет цвет маркера точки прерыва- 
ния. По умолчанию ои отмечает заблокированные точки прерывания 
синим цветом, который также можно изменить. Для этого выберите пункт 
Configure Current... (Текущая конфигурация) всплывающего меню пунк- 
та Window Attributes (Параметры окна) падающего меню Tools (Иистру- 
менты). На экране появится дналоговое окно Window Attributes (Пара- 
метры окна). В этом окне в раскрывающемся списке выберите пункт 
(строку) ВРТ-ПТЗАВГЕ, а затем желаемый цвет. 

Пункт ВгеаКрошё; Window (Окно точек прерывания) падающего меню 
View (Просмотр) позволяет увидеть список всех точек прерывания, в Ha- 
стоящее время определенных Visual LISP (рис. 7.13). 

Окно ВгеаКрошё$ содержит точки прерывания всех файлов, которые 
редактируются в Visual LISP, а не только файла из активного окна penak- 
тора. В примере на рисунке 7.13 указан один файл, потому что только оп 
в настоящее время открыт. Установку точек прерывания можно изменять 
в любом количестве открытых файлов. 

Каждая строка в окне Breakpoints содержит имя файла, имеющего TOY- 
ку прерывания, и указывает расположение этой точки. Знак + или — опре- 
деляет, активна указанная точка прерывания или заблокирована. 
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Рис. 7.13. Окно списка точек прерывания 


Диалоговое окно позволяет удалять все точки прерывания сразу, редакти- 
ровать или отображать одну из них. С помощью кнопки Show (Показать) 
можно отображать позицию точки прерывания. Кнопка Edit (Редактиро- 
вание) открывает диалоговое окно обслуживания точки прерывания 
Breakpoint service (Обслуживание точки прерывания) после выделения 
редактируемой строки (см. рис. 7.12). 

Устанавливать точки прерывания можно до либо после загрузки про- 
граммы. Однако, если вы изменяете текст в программе после ее загрузки, 
а затем добавляете точку прерывания, то данная точка будет действовать 
только после перезагрузки программы. 

Установки точек прерывания остаются в силе в течение всего сеанса 
редактирования Visual LISP. Сохранить установки для других сеансов 
можно с помощью команды Save Settings (Сохранить установки) падаю- 
wero меню Tools (Инструменты). 

Точки прерывания теряются автоматически в том случае, если выпол- 
няются следующие действия: 

e удаление фрагмента программы, содержащего точку прерывания; 

e изменение файла не в среде редактора Visual LISP (например, с nomo- 

щью записной книжки); 

e применение форматирования Visual LISP к фрагментам программ, 

содержащим точки прерывания. 

Visual LISP обеспечивает почти безграничный доступ к символам и их 
значениям из любого места программы с помощью следующих окон: 
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e Watch (Окно наблюдений), которое отображает текущее значение 
любого набора переменных; 

e Trace Stack (Трассировка стека), которое отображает самую современ- 
ную иерархию обращения. На ллобом уровне стека вы можете просмат- 
ривать соответствующий код, код вызова, локальные переменные и 
другие элементы; 

e Symbol Service (Обслуживание символов), которое отображает теку- 
щее значение символа так же, как и его текущих флажков. Вы можете 
изменять значение и/или флажки; r 

e Inspect: (Проверка), которое проверяет любой элемент выражения 
AutoLISP; 

e Frame binding window (Рамка, связывающая окна), которая связыва- 
ет окна и отображает значения всех локальных переменных. 

Чтобы получить возможность просматривать значения переменных, не- 
обходимо добавить переменную в окно Watch (Окно наблюдений). Когда 
курсор находится на имени переменной, двойным щелчком мышки выде- 
лите ее в любом контексте (в окне редактора, консоли и т. д.) и щелкиите 
по кнопке Add Watch (Добавить наблюдение) или выберите пункт Add 
Watch (Добавить наблюдение) падающего меню Debug (Отладка). Mox- 
но также выбрать пункт Add Watch из контекстного (всплывающего) 
меню. Для этого нажмите правую кнопку мышки, когда курсор находится 
на имепи переменной. На экране появится диалоговое окно Enter 
expression to watch (Введите выражение для наблюдений) с введеиным 
именем переменпой. Щелкните по кнопке ОК (Okay - хорошо). 

Если окно Watch (Окно наблюдений) уже активно, вы можете добавить 
дополнительные переменные к списку Watch, щелкая по ‘кнопке Add 
Watch (Добавить наблюдение) — кнопке с очками на инструментальной 
панели в окне Watch (Окно наблюдений). 

Когда Visual LISP не сможет определить, какая переменная вас заинте- 
ресовала, на экране появится диалоговое окно Enter expression to w... 
(Ввод выражения для наблюдений). Введите в текстовом поле раскрыва- 
ющего списка (Drop-dawn list) нужное имя переменной и щелкните по 
кнопке ОК. 

Инструментальная панель окна Watch (Окно наблюдений) содержит 
следующие кнопки: 

e Add Watch (Добавить наблюдение) — вызывает пункт Add Watch, что- 
бы добавить новую переменную в окно Watch; эта переменная может 
быть выбрана в любом активном текстовом окне или напечатана в AHA- 
логовом окне Add Watch (Добавить наблюдение): 
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e Clear Window (Очистить окно) — очищает окно Watch (Окно наблю- 
дения); 
e Sort expressions (Отсортировать выражения) — сортирует переменные 
в окне Watch (Окно наблюдений) в алфавитном порядке по имени; 
e Copy to Trace/Log (Копировать в окно Trace или Log) — позволяет 
сохранять содержимое диалогового окна Watch (Окно наблюдений) 
в окне Trace (Трассировка) или файле Log (Файл регистрации). 
Для работы с переменными и их значениями ИИ 
в окне Watch можно использовать контекстное | Copy value 
меню, которое вызывается щелчком правой KHON- ;  Printvalue 
ки мышки (рис. 7.14). = 


S m Symbol... 
Контекстное меню окна наблюдений Watch co- na 6 
держит следующие пункты: Tpit 
e Inspect value (Проверить значение) — npo- О RICI 
смотреть значение; Рис. 7.14. Контекстное меню 
e Copy value (Скопировать значение) — скопи- окна Watch 


ровать значение выбранной переменной в пе- 
ременную системы *ОВ}]*; 

e Print value (Напечатать значение) — напечатать значение переменной 
в окне консоли с одиночной кавычкой (') впереди; 

e Symbol... (Символ) — вызвать диалоговое окно обслуживания симво- 
лов для выбранной переменной; 

e Apropos... (Поиск по фрагменту) — используя имя выбранного симво- 
ла или нескольких символов, вызвать диалоговое окно Apropos... как 
параметр поиска полного имени; 

e Remove from Watch (Удалить из окна наблюдений) — удалить выбран- 
ную переменную из окна наблюдений Watch. 

Visual LISP имеет специальное средство отладки Trace Stack (Трасси- 
ровка стека). Трассировка стека — история выполнения функций внутри 
программы. Структура стека часто упоминается как LIFO — Last In, First 
Out (Последний вошел, первый вышел). 

Трассу стека полезно исследовать при двух следующих условиях: 

e когда программа находится в состоянии ожидания, например, во вре- 

мя контрольной паузы; 

e после того, как произошла ошибка. 

Допустим, в файле PRIVET1W.LSP во второй строке пропущена вторая 
закрывающая скобка. После загрузки и запуска на исполнение в окне кон- 
соли появится сообщение: malformed list оп input (плохо сформированный 
список на вводе), как на рис. 7.15. Это означает, что имеющихся закрыва- 
ющих круглых скобок недостаточно. 
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© Visual LISP Console Piil Es 
1% 7 
; xxx ERROR: malformed list оп input 
_$ | 
8 
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Рис. 7.15. Окно консоли 


Чтобы увидеть состояние функцио- 
нальных вызовов до того, как ваша 
программа завершится из-за ошибки, 


выберите пункт Error trace (Трасси- 


ровка ошибки) падающего меню View 
(Просмотр). На экране появится диа- 
логовое окно Error trace ('`Трассиров- 
ка ошибки), как показано на рис. 7.16. 

Окно Error trace используется 
Visual LISP чтобы запомнить выход из 
вложенного ряда выражений. Изучая 
трассировку, можно видеть, что проис- 
ходило внутри программы в процессе 
ее выполнения, во время или сразу 
после того, как она завершилась по 
ошибке. 

Чтобы наблюдать состояние функ- 
ционального стека вызовов во время 
прерывания, выберите пункт Тгасе 
Stack (Трассировка стека) падающего 
меню View главного меню Visual LISP 
или щелкните по кнопке Trace (Трас- 
сировка) — кнопке с отпечатками сле- 


(W Error trace 


ГУ 
#35. 


<1> НЕАБ-ЕАВОВ mmeo 
<2> ТОР-СОММАМО 


Же: Q vi a ЕЕ 


Рис. 7.16. Диологовое окно Error trace 


g. Trace stack я 


Z 


<1> :BREAK-POINT 
ET 27 
| (HANOI 2 "1" "2" "3") 
: : НАМО! 3 u] и z uony 
[5] (HANOI 4 "1" "2" "3") 

[6] (#<USUBR ©032е003с -top->) 
</> : TOP-COMMAND 


Рис. 7.17. Диологовое окно Trace Stack 


дов ног. На экране появится диалоговое окно Trace Stack (Трассировка 


стека), как показано на рис. 7.17. 


Окно Trace Stack включает функцию (она называется фреймом) для OT- 
слеживания стека функции. Второй элемент, или фрейм в стеке следа, под- 


свечен. 
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Числа [2], [3], ... - номера элементов в стеке. W inspet 
Чтобы получить подробную информацию OTHO- | Prit 
сительно элемента в стеке следа, выделите элемент ' Function symbol 
и щелчком правой кнопки мышки вызовите кон- Copy 
текстное меню. — Localvariables 
Активные элементы, доступные в контекстном "< Source position 


меню. зависят от типа выбранного элемента стека. 
Контекстное меню включает следующие команды: 
e Inspect (Проверить) — вызов диалогового окна 
проверки Inspect (Проверить) выделенного 
элемента стека; 
e Print (Печатать) — отображение в окне консоли выделенного элемен- 
та стека в виде списка. Например, выделенный на рис. 7.17 элемент бу- 
дет отображен следующим образом: 


1 =INOTI 3 nIin annB non) 
` ! 


SRNL 3 4 3 L 


Call point source 


Рис. 7.18. Контекстное 
меню выделенного 
элемента окна трассы стека 


e Function symbol (Имя функции) — вызов диалогового окна Symbol 
Service (Обслуживание символов); 

e Copy (Копировать) — создание копии выделенного элемента трассы 
стека в системной переменной *ОВ]*; 

e Local variables (Локальные переменные) — отображение окна Frame 
Binding (Рамка связывания) для просмотра значений локальных TIC- 
ременных во время выполнения функции; 

e Source position (Исходная позиция) — отображение текстового окна 
с исходным текстом с текущей позиции выделенного элемента, если 
он там имеется, и наоборот; 

e Call point source (Вызвать исходную точку) — показ позиции выделен- 
ного элемента. 

Допустим, первая строка программы выглядит следующим образом: 

(DEFUN PRIVET (/ ТМУ) 

Отслеживать значения локальной перемен- 
ной [МУ можно во время выполнения функции 
(PRIVET...) в окне Frame binding (Рамка свя- 
зывания), которое представлено на рис. 7.19. 
Для этого необходимо выбрать пункт Local 
variables (Локальные переменные) контекстно- 
го меню выделенного элемента окна трассы сте- 
ка Trace Stack. 

Если щелкнуть правой кнопкой мышки в окне Frame binding, Visual 
LISP отобразит контекстное меню. | 


Ji Frame binding [2]: и 


AMY = "Евгений" 


Рис. 7.19. Окно Нате binding 
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‚ Меню содержит следующие пункты: "Ипзрее ева 
e Inspect (Проверить) — вызов диалогового окна для ; Ри) 
просмотра выделенного значения; Ai Symbol.. i 
e Print (Печать) — отображение выделенного значения | Copy : 
B OKHC KOHCOJIH; AEAT 
e Symbol... (Символ) — вызов диалогового окна для Рис. 7.20. 
‚ обслуживания выделенного символа. Контекстное меню 


e Copy (Копировать) — создание копии выделенного окна Frame binding 
значения в системной переменной *ОВ}]*; 
° Add to Watch (Добавить для наблюдения) — добавление выделенной 
` переменной в окно Watch (Окно наблюдений). ` 
Когда выполнение программы прерывается из-за ошибки, выберите 
пункт Error Trace (Трассировка ошибки) падающего меню View (Про- 
смотр) для просмотра состояний функциональных вызовов до прерывания. 
Инструментальная панель в окне стека Trace (Трассировка) содержит 
две кнопки: 
e Refresh (Освежить) — освежить содержимое окна стека Trace (Трас- 
сировка); 
e Copy (Скопировать) — скопировать содержимое окна в окно Trace 
(Трассировка) или файл регнстрации. 
В процессе отладки для упрощения доступа к различным возмож- 
ностям отладчика очень часто используют диалоговое окно Symbol 
Service (Обслуживание символов). Чтобы открыть диалоговое окно 
Symbol Service, необходимо: 
* выделить группу символов в текстовом окне редактора или в окне 
консоли; 
° выбрать пункт Symbol (И Enter symbol name: 
Service (Обслуживание 
символов) падающего 
меню View (Просмотр) 
главного меню Visual 
LISP или щелкнуть по 
кнопке Symbol Service 
(Обслуживание симво- 
лов) на инструментальной панели Debug (Отладка). На экране no- 
явится диалоговое окно ввода имени символа Enter symbol name: 
(Ввод имени символа), показанное на рис. 7.21. Выделенная группа 
символов автоматически появляется в текстовом поле раскрываю- 
щегося списка в окне ввода имени символов Enter symbol name: 
(Введите имя символа); 


Рис. /.21. Окно ввода имени символа 
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° щелкнуть по кнолке ОК ТОПЕ xÍ 
(ОКау — хорошо). “Не 
На экране появится диалого- | 
- > Name: | 
вое окно Symbol Service (Об- РАМЕТ У N 
служивание символов), пока- | и 
занное на рис. 7.22. мае: 


Диалоговое окно Symbol Service [HUSUBR @029ddca0 PRIVE T> TS 


(Обслуживание символов) содержит: Flags: 
» инструментальную панель; Г’ Trace | Protect Assign: 
M Debug on Entry 


ор нередко 


* текстовое поле Name (Имя) для Г’ Export to ACAD 


ввода или изменения символов; AE are 
ance 
e текстовое поле Value (Значе- ЕН. 


ние). в котором отображается 
значение символа или его Ha- Рис 7.22. ая окно ых Service 
чальная подстрока; [Обслуживание символов] 

e раздел Flags (Флажки) для 
включения/выключения атрибутов символа. 

Значение отображаемого символа можно изменить путем ввода нового 
значения в текстовом поле Value (Значение) и выбора кнопки ОК. Visual 
LISP вычислит и присвоит новое значение символу. 

Когда флажок Protect assign (Защитить присвоение) включен, поле 
Value (Значение) используется только для отображения значения. 

Инструментальная панель Symbol Service (Обслуживание символов) 
содержит следующие кнопки: 

e Watch (Понаблюдать) — добавить символы в окно Watch (Наблюде- 

ний); 

e Inspect (Проверить) — просмотреть и проверить значения символа; 

e Show Definition (Показать определение) — открыть окно текстового 
редактора, содержащего функцию, и выделить ее; | 

e Help (Помощь) — отображение информации из файла Help Visual 
LISP, если символ является' именем встроенной функции. 

Диалоговое окно Symbol Service (Обслуживание символов) позволяет 
задавать атрибуты символам с помощью следующих переключателей: 

e Trace (ТВ) (Отслеживать) — отслеживание указанной пользователем 
функции, имя которой введено в текстовое поле Мате (Имя). Исполь- 
зуется только с именем функции; 

e Protect assign (РА) (Защитить присвоение) — защита от изменения 
значения символа. Например, символ PI — Protect assign — защищен- 
ный символ. Все символы, которые являются именами встроенных 
функций AutoLISP, защищены от изменения по умолчанию; 
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° Debug оп Entry (Отладка на входе) — установка точки прерывания при 
каждом вызове. Действует только во время выполнения функции, но 
не во время ее загрузки или определения. Обратите внимание, что 
Visual LISP игнорирует переключатель Debug оп Entry для всех 
ОВК, ЕХЗОВК и ЕХКХЗОВК символов; 

e Export to ACAD (EA) (Экспорт в AutoCAD) - определение функции, 
связанной с символом, как внешней подпрограммы AutoLISP; 

Для облегчения отладки используется специализированное средство — 
Inspector (Проверка), которое позволяет просматривать, исследовать и из- 
менять объекты AutoCAD и AutoLISP. С помощыо этого эффективного 
и доступного в использовании средства можно осуществить просмотр: 

° любых объектов, доступных в AutoLISP (например, списков, чисел, 
строк и переменных); 

° нарисованных объектов AutoCAD; 

° выделенных наборов примитивов AutoCAD; 

e сложных структур данных. 

Inspector (Проверка) создает окно для любого объекта, который подвер- 
гается проверке. 

Окна Inspector имеют одинако- 
вый вид и содержат заголовок окна, 
например, Inspect: STR (рис. 7.23), 
строку объекта (под заголовком) 
и список элементов объекта (воз- 
можно, пустой). 

Допустим, вы запустили на вы- 
полнение файл PRIVETIW.LSP. 
На запрос в командной строке: Рис. /.23. Окно проверки строковой константы 

Command: Inspect: STR 
Введите Ваше имя ! - - - 


ввели, например, имя Евгений. Затем вы вернулись в окно текстового ре- 
дактора и выделили переменную 1МУ. После этого решили вызвать окно 
Inspect: (Проверить). Для этого щелкнули ло кнопке Inspect (Прове- 
рить) — кнопке с изображением на ней микроскопа — или выбрали пункт 
Inspect... (Проверить) падающего меню View (Просмотр). В зависимости 
от типа выделенной переменной на экране появится соответствующее 
окно проверки (в нашем случае окно Inspect: STR (Проверка строковой 
константы), представленное на рис. 7.23). 

Заголовок окна [пзресе: показывает тип проверяемого объекта, в данном 
случае STR (String — строковая константа). 
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Строка объекта (Object line) показывает напечатанное представление 
заданного объекта. 

Список элементов (Element list) отображает компоненты заданного 
объекта. Размер и содержание списка элементов меняются в зависимости 
от типа объекта. Каждый элемент списка имеет имя (оно заключено в квад- 
ратные скобки) и содержание. 

Строка объектов и строки списка элементов имеют их собственные свя- 
занные контекстные меню. 

Для различных типов объектов AutoLISP используются следующие 
виды списков элементов: 

e INT Inspector (Проверка целого числа), который представляет целое 

число в различных системах счисления; 

e REAL Inspector (Просмотр действительного числа) — этот список эле- 
ментов пустой; 

STRING Inspector (Просмотр строковой константы), который содер- 
жит символы строковой константы в определенной последовательно- 
сти. Каждый элемент списка может быть осмотрен как целое число; 
Symbol Inspector (Окно просмотра символов) — просмотр списка эле- 
ментов символа содержит 3 элемента: значение, имя и атрибуты; 

e LIST Inspector — список элементов списка AutoLISP содержит 2 эле- 
мента: начальный элемент списка (эквивалент САК), список без перво- 
го элемента (эквивалент СОК) для всех случаев, когда СОК не NIL. 
File Inspector (Просмотр файла) — список элементов файла, который 
содержит имя файла и параметры его открытия; 

+ SUBR, EXSUBR и USUBR инспектора, которые содержат имя функ- 
ции, определенное функцией (DEFUN...) или указанное во времени 
загрузки; 

e ENAME Inspector (Проверка рисунков объекта) — просмотр списка 
подсписков, в которых сгруппированы по фуикциональному пазначе- 
нию все данные о примитиве AutoCAD - как геометрические, так и об- 
щие: слой, цвет и т. д. Подсписки отличаются друг от друга по специ- 
альным кодам формата DXF (Drawing eXchange Format — формат 
обмена рисунками). Каждый подсписок имеет две части: код DXF 
и данные. 

e PICKSET Inspector (Просмотр выбранных объектов) — просмотр 
списка выбранных объектов AutoCAD. 

Чтобы просмотреть объект, выделите имя объекта в любом контексте, 
выберите пункт Inspect (Проверить) падающего меню View (Просмотр) 
главного меню Visual LISP или щелкните кнопку Inspect на инструмен- 
тальной панели Debug (Отладка). Пункт Inspect (Проверить) также 
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доступен из ряда контекстных 
меню и диалоговых окон, напри- 
мер, окна Symbol Service (Обслу- 
живание символов). 

Для того чтобы просмотреть оп- 
ределение функции (РЕУЕТ...), 
выделите имя в окне текстового 
редактора, затем щелкните кноп- 
ку Inspect (Проверить) на инст- 
рументальной панели Debug 
(Отладка). На экране появится 
окно проверки функции пользо- 
garena Inspect: USUBR, пред- 
ставленное на рис. 7.24. Рис. 7.25. Окно ввода выражения для проверки 

Если вы вызываете пункт 
Inspect, не выбирая имеии объекта, Visual LISP позволяет определить 
объект в окне ввода выражения для проверки Enter expression to inspect 
(Введите выражение для проверки) (рис. 7.25). 

Введите в текстовом поле раскрывающегося списка имя объекта или вы- 
ражение, которое хотите проверить, затем щелкните по кнопке ОК (Okay — 
хорошо), чтобы открыть окно [Inspector (Проверка), или нажмите кнопку 
Cancel (Отменить) для отмены действия. В раскрывающемся списке 
Visual LISP сохраняет 15 последних введенных выражений. Если интере- 
сующий вас объект или выражение находится в раскрывающемся списке, 
то для его проверки достаточно дважды щелкнуть по нему мышкой. 

В окне текстового редактора нельзя просмотреть выбранные выраже- 
ния, которые длиннее 256 символов. При выборе строки, количество сим- 
волов в которой превышает 256, компьютер запросит ввести имя объекта. 

Если вы зададите объект или выражение, которое Visual LISP не может 
обработать, на’экране появится стандартное сообщение об ошибках 
AutoLISP. В таком случае вы можете исправить выражение в диалоговом 
окне и попробовать обработать его еще раз. 

Ошибки, ставшие результатом обработки объекта, который вы ввели, не 
могут быть исследованы из вложенного уровня прерывания, потому что 
все прерывания во время обработки заблокированы. При желании иссле- 
довать ошибку выберите пункт Error Trace (Трассировка ошибки) падаю- 
щего меню View (Просмотр) главного меню Visual LISP или скопируйте 
выражение с подсказки консоли и нажмите клавишу Ещег (Ввод). 

Закрыть все окна Inspector (Проверка) можно, если выбрать пункт 
Inspectors (Проверки) всплывающего меню Close Windows (Закрыть 
окна) падающего меню Window (Окно) главного меню Visual LISP 


(Y Inspect: USUBR 
#<USUBR @029ddca0 PRIVE T> 


r 2 PUES 
аи. a — 
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Дналоговые окна Inspector (Проверка) имеют контекстные меню, зави- 
сящие от просматриваемых данных. 

Контекстное меню строки объекта появляется после нажатия комбина- 
_ ции клавиш А +О или щелчка правой кнопкой мышки по строке объекта 
диалогового окна и может содержать следующие команды: 

e Symbol Service (Обслужить символы) — вызывает диалоговое окно 

обслуживания символов; 

e Print (Напечатать) (Alt+P) — отображает объект в окне консоли; 

e Pretty print (Структурная печать) — форматирует и отображает объект 
в окне консоли; 

e Copy (Скопировать) — копирует объект в системную переменную 
ОВ : 

e Log (Зарегистрировать) — копирует текущее содержание окна 
Inspector в окно Trace frame (Трассировка рамки); 

e Update (Alt+U) (Модифицировать) — модифицирует окно Inspector 
(Проверка), чтобы показать последнее состояние просматриваемого 
объекта. | 

После того, как щелчком правой кнопки мышки вы подсветите элемент 
списка, появится контекстное меню элементов списка, которое содержит 
следующие пункты: 

e Inspect (Проверить) (Alt+I) — вызов окна Inspector для данного эле- 

мента списка; 

e Descend (Alt+D) — вызов окна Inspector для данного элемента списка 
и закрывание текущего окна Inspector; 

e Copy (Копировать) — копирование значения просматриваемого эле- 
мента в системную переменную *ОВ]*; 

e View source (Просмотр источника) — активизация окна текстового pe- 
дактора, которое содержит выбранный текст. Если окно было загруже- 
но с консоли, активизируется новое окно текстового редактора. 

Иногда необходимо обратиться к некоторой части объекта из програм- 
мы или из окна консоли Visual LISP. Вы можете, например, копировать 
значение элемента одного объекта в другой и так далее, если воспользу- 
етесь зарезервированной системной переменной *ОВ]*, которая при 
просмотре структуры данных может использоваться как временная ob- 
ласть памяти. Из окна проверки Inspector (Проверка) можно задавать 
или изменять значение этой системной переменной. 

Чтобы поместить значение объекта в системную переменную *ОВ]*, 
выделите этот объект, щелкните правой кнопкой мышки в окне проверки 
Inspector и выберите пункт Copy (Копировать). 

Рассмотрим окна проверки Inspect: для различных типов данных Visual 
LISP, которые используются наиболее часто. 
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CU Inspect: INT 


Окно Inspect: INT (Проверить 
целое число), представленное Ha $ 
рис. 7.26, показывает cmmepk Boa i Рае ЕН Ь, 
можных представлений целого — |‹аес>1500 
числа: двоичного, восьмеричного, <hex> 54 с 
десятичного, шестнадцатеричного  1“°825 
и символьного (ASCII код). | Рис. 7.26. Окно представления целого числа 
Окно Inspect: REAL, представ- 
ленное на рис. 7.27, не содержит 
списка элементов (Element list). 
Окно шзресё, представленное 


Ан 
<> 10111011100 


(| Inspect: REAL 


нарис. 7.28, позволяет просматри- Рис. 7.27. Окно представления 
действительного числа 


вать имя объекта и содержит сле- 
дующие элементы: 
[value] — значение символа; 
{name} — имя символа, которое 


всегда является строкои, Маше] #«0ОЗОВР ©033ее590 HANOI 


<Йаз5...> {} - атрибуты симво-  |{пате}"НАМО! о 
ла: РА (Protect Assign) (Защи- 1893-20 
тить присваивание); ТВ (Trace) Рис. /.28. Окно проверки имени объекта 
(Трассировка); DE (Debug) (От- 
ладка); EA (Export AutoCAD) 

(Экспортировать B AutoCAD). 


7.2. Создание приложений в среде Visual LISP 


Visual LISP имеет эффективное средство для создания автономного при- 
ложения Application Wizard (Мастер приложений). Следует иметь в виду, 
что приложение может быть создано только после того, как оно полнос- 
тью отлажено. 

Чтобы начать работу Application Wizard (Мастер приложений), выберите 
пункт New Application Wizard всплывающего меню пункта Make Application 
(Создать приложение) падающего меню File (Файл) главного меню Visual 
LISP. На экране появится диалоговое окно Create new МаКе-АррйсаНоп 
File (Создать новый файл приложения), представленное на рис. 7.29. 

В диалоговом окне выберите путь и введите имя файла. В нашем приме- 
ре имя файла совпадает с именем функцни. К имени файла мастер автома- 
тически добавляет расширение МКР. Нажмите клавишу Enter (Ввод) или 
щелкните мышкой по кнопке Сохранить (Save). 

Рассмотрим порядок создания приложения с помощью Wizard (Мастера). 
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Create new Make-Application File 


Имя файла: | | Сохранить | 
Тип сайла: Make Application file Отмена | 


Рис. 7.29. Диологовое окно создания нового файла 


12 


На первом шаге в разделе Select the application type (Выбрать тип при- 
ложения) выбирается тип приложения (см. рис. 7.30): 

ARX Standard — Visual LISP создает один модуль ARX, который может 
быть загружен и выполнен в AutoCAD. Этот модуль наряду с программой 


Application Wizard Step 1 of 8 


-* T ВА m Selectthe application type 
The frst step in creatng ал applicaton 15 to | РР Ур 


 Сроо$5е Фе type of application. | | C ARX Standard 
You have three choices: | C ARX with Activex Automation 


ARX Standard aiaa onia 
APX with Actvex Automation g МХ 
МХ 


Executable prototype 
APX applications can be loaded within any | | <None> ; 
| Release 14 session. A YLX appļicaton 


requires that the Yisual LISP run-time 
engine is already loaded in order for it to 
function properly. | 


Cancel | 


«ЕГРАЛОИЕ 


Рис. 7.30. Диалоговое окно Application Wizard на первом шаге 
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(U Application Wizard Step 2 of 8 


’° | Choose a name for the executable file you м S 
| | are creating. By default Visual LISP ia 
creates an executable file in the current 

directory, but you can change this Бу 
pressing the Browse button and choosing а 


Application executable file 
[C/ALISP/KOTTEDJ.VLX 
Browse.. ^^ | 


different and file name. 


PL 


Cancel | | <Previous | 


Рис. 7.31. Диалоговое окно Application Wizard на втором шаге 


и DCL (Dialog Control Language — язык управления диалогом) файлами 
включает копию Run-Time System (RTS) Visual LISP; 

ARX with ActiveX Automation — Visual LISP также создает один модуль 
ARX, подобно Standard, за исключением того, что в модуле используется 
методология Асйуех. Если программа использует в приложении методо- 
логию ActiveX, то для создания приложения вы должны выбрать именно 
этот режим. В случае выбора типа Standard программа не будет выпол- 
няться B AutoCAD; 

VLX - содержит приложение и все файлы обеспечения, однако не вклю- 
чает RTS Visual LISP. Поскольку RTS не включен, размер модуля VLX 
меньше размера модуля ARX и для всех модулей VLX можно использо- 
вать один RTS. Для продолжения процесса создания приложения щелк- 
ните по кнопке Next (Следующий). 

На втором шаге определяется имя исполняемого файла приложения 
Application executable file (Исполняемый файл приложения) (рис. 7.31). 

По умолчанию Visual LISP создает исполняемый файл в текущем KaTa- 
логе. Можно также задать полное имя пути или щелкнуть по кнопке 
Browse (Пролистать) и выбрать пужное имя файла. 

Если необходимо вернуться к предыдущему шагу Application Wizard 
и что-либо изменить, щелкните по кнонке Previous (Предыдущий). Для 
перехода к следующему шагу щелкните по кнопке Next (Следующий). 


11% 


324 Отладка и создание припожений в среде Visual LISP 


L% Application Wizard Step 3 of 8 


f you have an AutoUSF file containing 
intalhzaton functons, you may select to 
have this fle loaded and executed when 
the application is loaded. This makes it 
| possible for your application to Бе 

j initialized prior to any command invocation | 
| which occurs when a user calls a | 

| command or function defined by your 


M Load all files automatically _ 


Initialization file: 


СУАНЕРАЛ КОТ Г.$$$° 


Browse, | | 


| applicaton) 


| By default your application will be 
| configured so that all files are loaded 
| automatically 


Рис. 7.32. Диологовое окно Application Wizard на третьем ware 


На третьем шаге производится инициализация файлов Initialization file 
(Файл инициализации») (рис. 7.32). 

По умолчанию приложение будет сконфигурировано таким образом, 
что все файлы загрузятся автоматически. Visual LISP создаст файл запус- 
ка VLISPREFIX.SSS, где PREFIX - первые четыре символа исполняемо- 
го файла, имя которого было задано на втором шаге. Файл запуска загру- 
жает все файлы FAS приложения. Не забудьте, что в файлы FAS можно 
включить функции инициализации. 

При выборе файла инициализации (типа VLARTS.LSP) выключите 
флажок Load of files automatically (Загрузить файлы автоматически) 
и щелкните по кнопке Browse (Пролистать), чтобы ввести имя файла 
инициализации, который создан. Данный файл будет загружен при за- 
пуске. 

На четвертом шаге производится выбор файлов, которые должны быть 
включены в приложение (рис. 7.33). 

У пользователя есть возможность выбрать исходные файлы диво 15 Р 
(с расширением LSP), скомпилированные LISP файлы (с расширением 
FAS) либо файлы проекта Visual LISP (с расширением PRJ) или любую 
их комбинацию. 

При выборе файлов проекта в модуль вывода включаются файлы FAS 


всего проекта. 
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(Y Application Wizard Step 4 of 8 xI 


‚ | Select the files that should be included- 
{within the application. You can select 

~ T AutoLISP source files (LSP), compiled 

‚ | LISP files (РАЗ). or Visual LISP procos 
> (PRJ). or any combination. 


Add... LISP Source Files 


[u Bemove | EEA | 


Рис. 7.33. Диалоговое окно Application Wizard на четвертом шаге 


В случае выбора исходных файлов AutoLISP Visual LISP компилпирует 
файлы, которые входят в приложение. 

Для того чтобы выбрать тип файла, который необходимо включить 
в приложение, раскройте список и щелкните по кнопке Add (Добавить). 


Add LISP source files to package 


; о © ANALITIC sy ММКУ [A Рраг 


L Din [© MNOGOSTD Pparl 

_ Я Din2 (< ММОСОЗТР [ privet 

-iiA Чоп kA mnogostpm KA privet2w 

Hiis) ECSAG {s} mnogostr № ЗЕ TDFOR 
Lii) Eksper [Я offis is} SETRIS 

| [58 ELEKTRR IA Par A STRELA 

L IKA ELKTRISD KA Parl 

CIA ELKTRISL Роз! 


f s. a a a a Daaa ^^. "rs -e 2-ю FW r > a etape amn -5 m >. 


| Тип файлов: [Lisp Source Files -| Отмена | 


Рис. 7.34. Диалоговое окно добавления исходных LISP фойлов в покет 
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На экране появится диалоговое окно Add LISP source files to package (До- 
бавить исходные LISP файлы в пакет), представленное на рис. 7.34. 

В этом диалоговом окне можно выбрать только один файл. Чтобы доба- 
вить выбранный файл в приложение, можно дважды щелкнуть по нему 
мышкой или нажать кнопку Открыть (Ореп) (рис. 7.35). 

Когда вы хотите удалить или заменить файлы, включенные в приложе- 
ние, выделите эти файлы и щелкните по кнопке Cancel (Отменить). Mox- 
но также использовать правую кнопку мышки для вызова соответствую- 
щего контекстного меню. 

Для замены всех файлов LSP на файлы FAS щелкните по кнопке Select 
АП (Выбрать все) для выбора всех файлов приложения, затем нажмите 
кнопку Remove (Удалить). 

Visual LISP загружает файлы приложения в том порядке, в котором они 
перечисляются. На этом шаге Application Wizard (Мастер приложения) 
можно переупорядочить список файлов. Например, функция должна быть 
определена прежде, чем будет выполнена загрузка функции, в которой она 
используется. Диалоговое окно Application Wizard Step 4 of 8 содержит 
кнопки, которые можно использовать, чтобы переместить файлы в спис- 
ке. Выберите имя файла, затем щелкните по кнопке: 

e Тор (В начало) — для перемещения в начало списка файлов; 

e Ор (Вверх) — для перемещения в списке файлов на одну позицию 

вверх: 


(Е Application Wizard Step 4 of 8 X 


- | 
| Select the files that should be included 
| within the application. You can select 
AutoUSP source files (LSP). compiled 
USP files (FAS). or Yisual USP project files | 
(PRJ) or any combination. 


LSP C/AUSP/KOTTEDJ.LSP 


= Source Files z 
[Un] Select All | 


Cancel | <Previous | Next> _ | 


Рис. 7.35. Диалоговое окно с выбранным файлом 
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e Оп (Вниз) - для перемещения в списке файлов на одну позицию вниз; 
e Btm (В конец) — для перемещения в нижнюю часть списка файлов. 
Эти же действия можно выполнить с помощыо контекстного меню, KO- 

торое вызывается щелчком правой кнопки мышки (рис. 7.36). 
Контекстное меню содержит следующие пункты: 


e Remove - удалить из списка; И ERTA 
e Move up — переместить на одну позицию вверх | ` Move up 
в списке файлов; -Move to top 
e Move to top — переместить B начало списка файлов; | Move down 
e Move down — переместить на одну позицию вниз | Move to bottom 
в списке файлов; e e TA 
e Move to bottom — переместить в конец списка фай- — Kourercruoe меню 
ЛОВ. перемещения имен 
Начиная с 12-й версии, AutoCAD располагает сред- — фойлов в списке 


ствами для создания диалоговых окон DCL (Dialog 
Control Language — язык управления диалогом). 

На пятом шаге производится включение в приложение файлов DCL 
(Dialog Control Language - язык управления диалогом) с предваритель- 
ной компиляцией, однако их можно и не включать. 

На шестом шаге производится создание External Definitions File (Внеш- 
не определенных файлов) (XDF) для функций, определенных в других 
ARX или ADS приложениях (см. рис. 7.38). 


(Y Application Wizard Step 5 of 8 


You can choose to compile Dialog Control | 
(DCL) files within your application. Top 


This selection may be left blank. 


8 |5 


[Ün]Select А] | 


ame at aae ia -+ 
aig 


jy 1 Cancel | <- <Previous | Nex 


Puc. 7.37. Диологовое окно Application Wizard на пятом ware 
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и Wizard Step 6 of 8 


` | Вуоиг application calls functions defined сы 
Within other ADS or ARX applications, the f Topp 
| application must know how to call the O peer 
functons. These may be defined within а 
| spegal type of Те called an Extemal Pasza i 
| Definition File XDF} or by making explicit H 
calis to the (fAispaiımportexsubrs) function. 
р 
| In this step, you may select any XDF files | a 
i thathave already been created. ` j i 


Add.. 
| 


< Remove | 
Cancel | <Previous | 1 = Next> | 


Рис. 7.38. Диалоговое окно Application Wizard на шестом шаге 


опзаезаи”” | 


При этом можно использовать X DF файлы, которые были созданы ранее. 
На седьмом шаге производится инициализация приложения (во время за- 
грузки или во время первого вызова функции инициализации) (см. рис. 7.39). 


Q} Application Wizard Step 7 of 8 | EJ 


Г7 initialize in load tme! 


| Your application will be initialized either at 
| loadtime, or when the first call 15 made to 
any initialization function. 


Initalization functions sre the only Е, | 
available т AutoCAD after the load of your | 
| application. 


| Нуоу select automatic creation, all C: a - 
| functions will be included in the list of 


== 


‚пфалгайоп functions. b Preje 


M Formmthelstautamatically 


Рис. 7.39. Диологовое окно Application Wizard на седьмом ware 
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Чтобы обеспечить инициализацию создаваемого приложения во время 
загрузки, включите флажок в окошке Initialize in load time (Инициализи- 
ровать во время загрузки). | 

Во время первого вызова функций инициализации необходимо создать 
их список. Функции инициализации — это функции, которые предназначе- 
ны для использования в AutoCAD. К ним относятся все функции с име- 
нем С:<имя>. Кроме того, обращение к функции УГ-ЕХРОВЛ-ТО-АСАО 
связывает инициализацию приложения. 

При включенном в окошке Form the list automatically (Создать список 
автоматически) флажке список функций инициализации будет сформи- 
рован автоматически.Чтобы выбрать этот режим, необходимо вначале 
убрать флажок в окошке Initialize in load time (Инициализировать во вре- 
мя загрузки). 

Если установлен флажок в окошке Form the list automatically (Создать 
список автоматически), можно с помощыьо кнопки Preview (Предвари- 
тельный просмотр) просмотреть список функций, который Visual LISP 
создает. 

Когда в окошках Initialize in load time (Инициализизровать во время 
загрузки) и Form the list automatically (Создать список автоматически) нс 
включены флажки, функции инициализации можно выбирать избира- 
тельно. При этом на месте кнопки Preview (Предварительный просмотр) 
появляется кнопка Add (Добавить). 


($ Application Wizard Step 8 of 8 


Executable: 
C:/ALISP/KOTTEDJ.VLX 
Load all automatically 
Initialize in load time 


AIl of the information required for creating 
the application has been collected. You 
can create the application now, or just save 
the information in an application make file 
(.mkp) for creating the application later. 


IV Make the application now 


- за RG R 5 г р l | s 
Cancel | -<Previous | Finish | 


Рис. 7.40. Диалоговое окно Application Wizard на восьмом ware 
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На заключительном шаге (рис. 7.41) производится создание приложения 
или вся необходимая для этого информация сохраняется в МАКЕ файле. 
Если щелкнуть по кнопке Finish (Закончить), появится окно Build Output 
(Создание выходного файла), в котором отображается информация о за- 
вершении процесса компиляции приложения (см. рис. 7.41). 

Одновременно в окне консоли появится сообщение о завершении созда- 
ния приложения. как на рис. 7.41. 

При отказе создавать приложение Visual LISP сохраняет информацию 
в файле с расширением МКР который можно использовать для этой же 
цели позднее. Чтобы создать приложение из файла с расширением МКР 
необходимо выбрать пункт Load file (Загрузить файл) падающего меню 
File (Файл) главного меню Visual LISP и задать имя файла с расширени- 
ем “КР 

Когда фаил с расширением МКР выполняется, Visual LISP автомати- 
чески компилирует любые исходные файлы приложения, которые отвеча- 
ют следующим условиям: 

e компилируемая (FAS) версия файла отсутствует; 


èe компилируемая версия имеется, однако исходный файл после его KOM- 
пиляции изменился; 


s8 Visual LISP for AutoCAD Release 14 - [<Ви!3 Ошри>] | | ex 
Z) Рие Edt Seech VYiew Project Options Window Нар isah | Fr jej x 
O AAEE | |283 эд*ФФОм| |1 р Би а) | зем 
; (СОМРТЕЕ-ЕТЬЕ$ st (C:/ALISP/ULI$KOTT.$$$)) = 


[Analyzing file “C:/ALISP/ULIŞ$KOTT.$$$"] 
[COMPILING C:/ALISP/ULI$KOTT.$$$] 


[FASDUMPING object format -> “C:/ALISP/ULIŞKOTT.FAS"] 
; xxx COMPILATION COMPLETE. 


Рис. 7.41. Окно сообщений компилятора Build Output (Создание выходного файла] 


$ 
68 Visual LISP for AutoCAD Release 14- [Visual LISP Console] 
lir) Fie Еда Search View Projed Debug Tools Window Help 


[z рр: esai] |299 ДФО | da pi a fi 9 |= Alg 


Application packed “C:/ALISP/KOTTEDJ.ULX” 
ОК. 


29-3 23 
= [=] х 


. 11 formes loaded from #<editor ”C:/ALISP/KOTTEDJ.MKP”> 


Рис. 7.42. Окно консоли с сообщениями о результотах работы 
Application Wizard (Мостер приложений) 
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В результате создается файл, название которого состоит из имени исход- 
ного файла с добавлением в начало символов VLIŞȘ и расширением $$$. 

Порядок запуска на выполнение в AutoCAD автономного приложения 
зависит от того, какой создан модуль — ARX или VLX. 

Чтобы выполнить в AutoCAD приложение ARX, загрузите файл ARX 
и вызовите его из подсказки COMMAND. Загрузить файл можно с NOMO- 
ubio функции (АВХГОАО...) или команды Load Application (Загрузить 
приложение) из падающего меню Tools (Инструменты) главного меню 
AutoCAD. 

Функция (АВХГОАО...) имеет следующий синтаксис: 

(ARXLOAD <"имя файла">) a 
Для имени файла определите полное имя пути файла ARX. Например: 
(АВХЬОАО "С: /АЬТЗР/КОТТЕРУ.АКХ ") 

Если загрузка прошла неудачно, то есть имя загружаемой функции не 
появилось, проверьте, возможно, приложение уже загружено. Команда 
ARX в командной строке AutoCAD позволяет просмотреть список загру- 
женных приложений АКХ. 

Чтобы выгрузить приложение, которое в настоящее время загружено, 
используйте функцию (АВХОМГОАО...). 

Для выполнения приложения, которое загружено, необходимо вызвать 
его в командной строке AutoCAD таким же образом, как вызывается лю- 
бая функция AutoLISP. | 

Чтобы выполнить приложение VLX, необходимо загрузить Run-Time 
System (RTS) Visual LISP, а затем с помощью функции (УГ- LOAD...) за- 
грузить VLX модули. Например: 


(VL-LOAD "С: /АЬТЗР/КОТТЕРУ .АВХ") 


Если приложение загружено, выполните его из командной строки 
AutoCAD так же, как и любую функцию AutoLISP 

Когда имя функции начинается с С:, ее можно вызывать, как команду 
AutoCAD, то есть заключать имя в круглые скобки не нужно. 

Чтобы восстановить приложение после внесения в программу измене- 
ния, можно использовать Wizard (Мастер). Прежде чем восстанавливать 
приложение, необходимо удостовериться, что оно в настоящее время за- 
гружено в AutoCAD и разгрузить ero. Visual LISP не будет производить за- 
пись поверх существующего модуля. Чтобы использовать Wizard (Мас- 
тер), выберите пункт Existing Application Wizard (Существующий мастер 
приложения) из всплывающего меню пункта Make Application (Создать 
приложение) падающего меню File (Файл) главного меню Visual LISP 

Нри создании приложения с помощью Wizard (Мастер) можно выбрать 
файл с расширением МКР и внести изменения в определение приложения. 
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Когда определение приложения не изменялось, приложение можно опе- 
ративно восстановить, если загрузить и выполнить файл с расширением 
МКР 

Если файл приложения МКР загружен в текстовом окне редактора 
Visual LISP, можно активизировать этот процесс, щелкнув по кнопке Load 
active edit window (Загрузить текст активного окна редактирования) на 
панели инструментов Tools (Инструменты). При загрузке файла с расши- 
рением МКР, Visual LISP выполняет команды в файле автоматически. 

В качестве альтернативы Application Wizard (Мастер приложений) nan- 
более опытные (на современном языке — «продвинутые») пользователи 
могут использовать Application АРТ Visual LISP для создания выполняе- 
МОГО МОДУЛЯ. 


7.3. Встроенные функции Visual LISP 


(УТ-АЧТОСАО-РЕЕРОМ) — определяет имя. функции Visual LISP 
в AutoLISP ; 


(VL-AUTOCAD-UNDEFUN) - отменяет имя функции Visual LISP 
B AutoLISP. T, если отменила, и NIL, если нет (например, функция не была 
определена в AutoLISP); 


(УГ-СОМЗР) — определяет, действительно ли переменная — список. 


Например: 

-S (SETỌQL 12 ВВ) ; нажать клавишу Ctrl 
(ÈŁ BCD) 

$ (YL-CONS® L) ; нажать клавишу Ctrl 


p 
A ‘s 
E 


(VL-DIRECTORY-FILES) — ищет нужные файлы в каталоге 
(DIRECTORY); если каталог МП. или отсутствует, используется текущий 
каталог, если шаблон МП. или отсутствует, используется *.*; если число 
равно -—1; ищутся только каталоги; если 0 — файлы и каталоги; если 1- 
файлы. Например: ' 

_$ (VL-DIRECTORY-FILES ; нажать клавиши Ctrl+Enter 
"С: /РЕОСРАМ FILES/ŁUTOCAD R14/VLISP" "*.АВХ" 1) 
teg lartsarx" "Virdee arx” “УЕ 5ьавх”) 

(УТ-ЕУЕКУ...) — проверяет, является ли условие истинным для каждой 
комбинации элементов списков (сначала первых элементов, затем вторых 
ит.д.). Например: 

“$ (SETQ L1 '(1 2 374) ; нажать комбинацию клавиш Ctrl+Enter 


(SETO LZ З 2 а ; нажать комбинацию клавиш Ctrl+Enter 
(UL-ETERY x = Ш 624) ; нажать комбинацию клавиш Ctrl 


Встроенные функции Visual LISP 335 


(1234) 
(1324) 
111 

(VL-EXE-FILENAME) - возвращает полное имя файла текущей выпол- 

няемой программе. Например: 
_$ (VL-EXE-FILENAME) 
"С:/РВОСВАМ ЕТЬЕЗ/АОТОСАО R14/VLISP/VLIDE.ARX" 

(VL-FILE-COPY <“"файл1"> <"файл2"> [число]|) - копирует файл 
| и добавляет к файлу 2, если третий параметр есть и не NIL. Если возвра- 
щается NIL, то ошибка при копировании: файл 1 не читается, файл ABJA- 
ется каталогом, файл 2 существует. Например: 

_$ {(VL-FILE-COPY "С:/АОТОЕХЕС.ВАТ" "С: /МЕМАОТО . ВАТ") 
1417 

(VL-FILE-DELETE <"имя файла”>) — удаляет файл. T, если успешно, 
и NIL, если нет; 

(УГ-ЕШЕ-ОТВЕСТОВУ-Р <"имя ">) — определяет, является ли имя 
именем каталога. T, если да, и NIL, если нет. Например: 

_$ (VL-FILE-DIRECTORY-P "РЕТУЕТИ" } 
NIL 

(VL-FILE-RENAME <"новое имя"> < "старое имя" >) — переименовы- 

вает файл. T, если переименовал, и NIL, если нет. Например: 
(УЪ-ЕТЬЕ-ВЕМАМЕ' "С: /РЕТУЕТИ.Ь5Р" "C:/PRIVET1W.LSP") 
T 

(VL-FILE-SIZE <"nmĪma файла">) — определяет размер файла в байтах. 
NIL, если имя файла нечитаемо, и 0, если имя файла - каталог или пустой 
файл: 

-$ (VL-FILE#SIZE "С: /АОТОЕХЕС. BAT") 
533 

(VL-FILE-SYSTIME <"имя файла">) — время последней модификации. 
Возвращает список, содержащий дату и время последнего изменения, или 
NIL, если файл не найден. Например: 

_$ (УЪ-РТЬЕ-ЗУЗТТМЕ "C:/ALISP/HANOIW.LSP ") 
(199910 31 20 37 38 0) 

Последний раз файл был изменен в 1999 году, в 1-м месяце года (ян- 
варь), 0-й день недели (воскресенье), 31 января в 20:37:38; 

(VL-FILENAME-BASE <"имя файла">) — возвращает имя файла noc- 
ле снятия пути DIRECTORY и расширения. Например: 

_$ (VL-FILENAME-BASE "С: /АГТЗР/НАМОТИ.15Р ") 
"НАМОТИ" 
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(VL-FILENAME-DIRECTORY <"имя файла">) — возвращает путь Ka- 
талога файла, без имени файла. Например: 
_$ (VL-FILENAME-DIRECTORY "C:/ALISP/HANOIW.LSP ") 
"С: /АЬТ$Р” 
(УГ-ЕП.ЕМАМЕ-ЕХТЕМУОМ <"имя файла">) - возвращает только 
расширение из имени файла, если его нет — NIL. Например: 
(УТ-ЕТЬЕМАМЕ-ЕХТЕМЗТОМ "C:/PRIVETW.LSP") 
" торе 
(УТ-ЕП.ЕМАМЕ-МКТЕМР [копируют расширение Г1ВЕСТОКУ]) - 
определяет уникальное имя файла, которое нужно использовать для вре- 
менного файла. Основа имени — до 9 символов, принимаемых из имени 
файла. плюс 3 уникальных комбинации из символов. Все имена файла, 
сгенерированные функцией (УГ-ЕПЕМАМЕ-МКТЕМР...) в течение сеан- 
са Visual LISP удаляются, когда выходят из Visual LISP; 
$ (VL-FILENAME-MKTEMP) 
С: \\WINDOWS\ \ТЕМР\ \$МЬ--001" 
(УТ-ПМТГ) — подражает инициализации AutoLISP на открытой или HO- 
вой команде рисунка. T, если инициализация прошла успешио; 
(УГ-И$Т* <объект>...) — создает и возвращает список. Когда после- 
дний параметр - атом, результат — точечный список. Если последний na- 
раметр — список, то функция присоединяет ко всем предыдущим парамет- 
рам. Например: 


a ЕТО") 


_$ (VL-LIST* 0 "НОЛЬ") 
у ЕЛЕ 
(VL-LIST-> STRING <список АЗСП-кодов>) - преобразует список 
АЗ$СП-кодов в элементы строки. Например: 
YL-LIST->STRING ‘(49 50 51 52)) 


= 
e ^® i 4 


(VL-LIST-LENGTH <список>) — вычисляет длину списка. Например: 
$ (VL-LIST-LENGTH ’(A BC D E)) 


< 


3 
(VL-MEMBER-IF '<предикат > <список>) — определяет, является ли 
предикат (условие) истинным для одного из элементов списка. Предикат 
(условие)- это функция с одним аргументом, которая принимает значе- 
ние Т для любого условия, назначенного пользователем. 
Функция (УГ-МЕМВЕКЛ-Е..) передает каждый элемент в списке функ- 
ции, определенной в функции предиката. Если функциональные возвраты 
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не МП., возвращается остальная часть списка тем же самым способом, как 
и в функции (МЕМВЕК...); 

_$ (МЬ-МЕМВЕВ-ТЕ 'LISTP ' (1 "STR" (0. "STRING") NIL Т)) 

((0.0 "STRING") nil T) | 

(УГ-МЕМВЕВ-1Е-МОТ '<предикат > <список>) — определяет, являет- 
ся ли предикат МП. для одного из элементов списка; 

_$ (\УЪ-МЕМВЕВ-ТЕ-МОТ ‘АТОМ * (1 "STR" (0. "STRING") NIL T)) 
((0.0 "5ТВТМС") п11 Т) 

(VL-POSITION <символ> <список>) — возвращает номер позицин 
определенного элемента списка, а первый элемент списка под номером 0, 
второй - 1 и так далее; 

-S (SPTO STOFF (LIST ВЕ" "Er Spi SBT) 
PAN uan aG" Че up 

_$ (VL-POSITION "D" STUFF) 

3 

(VL-PRIN1-TO-STRING <"объект">) — возвращает строковое пред- 
ставление любого объекта LISP, как будто это выводилось функцией 
(РВИМ:...); 

_$ (VL-PRINL-TO-STRĪNG "ВСРЕ") 
"\"ВСОЕ\ "* 
(VL-PRINC-TO-STRING <"объект">) - возвращает строковое пред- 


ставление любого объекта LISP, как будто это выводилось функцией 


(PRINC); 
_$ (VL-PRINC-TO-STRING "ABC" ) 
"ABC" 

(VL-REGISTRY-WRITE < "раздел реестра"> | <"uma"> <"znayennec">]) — 
создает в реестре Windows новый раздел, параметры, состоящие из имени 
и значения. Например: 

_$ (VL-REGISTRY-WRITE "НКЕУ_СОВВЕМТ_ОЗЕВ\\ТЕЗТ" 
"TEST МАМЕ" "TEST DATA") 
"TEST DATA" 

Состояние реестра Windows после обращения к функции (VL- 
REGISTRY-WRITE...}) показано на рис. 7.43; 

(VL-REGISTRY-READ <раздел реестра> |[<"имя"> <"зиачение">]) — 
чтение данных, сохраненных в реестре Windows; 

_$ (VL-REGISTRY-READ' "НКЕУ_СОКВЕМТ_ОЗЕВ\\ТЕЗТ" "TEST 


МАМЕ") 
"TEST DATA" 


D a < п а ЗА 
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(VL-REGISTRY-DELETE <“раздел реестра“”> [<"”“имя”> <"значе- 
ние">]) — удаляет из реестра Windows имя или значение; 

Если регистр обеспечен и не NIL, заданная величина будет очищена от 
записи. Если значение имени отсутствует или NIL, функция удаляет 


определенную клавишу и все ее значения, 
Ве А RIGES DELELE "HKEY СОВВЕМРУУЗЕВААТЕОТ”) 


Ta 


(VL-REGISTRY-DESCENDENTS <“раздел peecrpa"> [<список>]) — 
возвращает список имен подразделов выбранного раздела реестра; 


_$(VL-REGISTRY-DESCENDENTS 
"НЕБУ КОСА МАСЕТ и WARE") 
({"Мац15оЕс" "Microlog" "Quarterdeck" "Far" "DigitalEquipmentCorporation" 


rag 
x U "CyberLink" "Xing Technology Corp." 
n 


"dobe" "Iniormatic" "Mouse Systems” "Kodak" "Ulead Systems" "Corel" 
"Сопоцеех Artworks" "Symantec" "MicroQuill" "Autodesk" "ABBYY" 
">ROJecİ MT, Ltd." "Clients" "ODBC" "ACD Systems" "INTEL" "Description" 
"CLESSES" "Kicroscit'") 


(VL-REMOVE '<элемент> <список>) — удаляет элемент из списка; 
(VL-REMOVE PI (LIST PI T 0 "АВС")) 


2.* Редактор реестра 


Реестр Правка Вид Справка 


Значение + 
lab] (По умолчан... (значение не присво 
lab) TEST МАМЕ  "ТЕЗТОАТА" 


= 23 Мой компьютер 
=] НКЕУ_СЬАЗЗЕЗ_РООТ 
= Г] HKEY_CURRENT_USER 

ЕН E] AppEvents 

== Sq Control Panel 

~ 9 instailLocatonsMRU 

T] keyboard layout 
Ty Network 
Fg Software 

Е LEST 
Г] HKEY_LOCAL_MACHINE 
С] HKEY_USERS 
Г] НКЕУ_СОРРЕМТ_СОМАС 
+ С] НКЕУ_ОУМ_ОАТА 


+} [+] 


(H 


H A-E] 


A aa < ОКА А, = haa 
а. A E A , 
i . x орон» f 
. a’ ` . >” N 
z “i É *i ь e uoe : 
` X : у E - 
- Pi . . »¢ A 
+ 19 - A %* >. * мы 
AST 
ë $; il a -S S> 


Мой компьютер\НКЕУ_СУААЕМТ_УЗЕР\ТЕЗТ | съ 


Рис. 7.43. Состояние окна редактора реестра Windows 
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(T 0 "АВС”) | 
_ (УЕ-КЕМОУЕ-ТЕ '<предикат> <список>) — удаляет все элементы 
списка, которые соответствуют условию; 

$ (VL-REMOVE-IF ~ LISTP' (LIST. 4 (РТ T) 04%ABC ”)) 

ВО: TABO =) 

(VL-REMOVE-IF-NOT '<предикат> <список>) — удаляет все элемен- 
ты списка, которые не соответствуют условию; 

_$ {УЬ-ВЕМОУЕ-ТЕ-МОТ 'LISTP (LIST '(PI T) 0 " АВС ")) 
( (PI ТВ) 
(VL-SOME/ '<предикат> <список>...) — проверяет выполнение усло- 
вия для первых элементов каждого списка, затем вторых и так далее; 
_$ (SETQL1 (LIST 0 2 PI 4)) 
L2 (CDR L1)) 
(VL-SOME ‘= L1 L2) ; сравнивает элементы списков 
nil | 

(VL-SORT <список> '<функция сравнения>) — сортирует элементы 
в списке согласно функции сравнения. Функцией сравнения может быть 
любая функция, которая принимает два параметра и возвращает Т. Повто- 
ряющиеся элементы могут быть удалены из списка; 

-S {VL-SORT "(3 2 1 3s). ; сортирует по возрастанию 
(123 

(УГ-ЗОВТ-Е <список> '<функция сравнения>) — сортирует элементы 
в списке согласио функции сравнения и возвращает номера (индексы) 
элементов. Повторяющиеся элементы будут сохраняться; 

_$ (VL-SORT-I '("А" "D" "F" "C") >) ; сортирует по убыванию 
(2 13 0) 

(VL-STRING->LIST <строка>) — преобразует элементы строки B CIH- 
сок кодов ASCII; 

_$ (VL-STRING->LIST "132"} 
(4951 50) 

(VL-STRING-ELT <строка > <позиция>) — возвращает представление 
символа строки, стоящего в определенной позиции в строке в коде ASCII. 
Нулевой позиции соответствует первый символ в строке; 

_$ (VL-STRING-ELT "Успеха Вам, пользователи!!!" 5) 
224 ; пояснение - на 5 позиции буква а, код ASCII ее - 224 

(VL-STRING-LEFT-TRIM <строка удаляемых символов> <строка IIC- 
ходных символов>) — удаляет определенные символы с начала строки; 

_$ (VL-STRING-LEFT-TRIM "Пра" "Правнук") 
"внук" 


12 — 1278 


Г У 


фо лее a 
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(VL-STRING-MISMATCH <строка1> <строка2> [<позиция1> <пози- 
ция2> <Т>]) — возвращает длину совпадающего фрагмента символов для 
двух строк. Можно указать позиции начала фрагмента. Наличие буквы Т 
снимает различие в написании строчных и прописных букв; 


$ (VL-STRING-MISMatch "Правнук" "Внук" 3 0T) 


|= | 


(VL-STRING-POSITION <код символа> <строка> [<нач.поз.1> 
<Т>]) -— определяет позицию символа с определенным АЗСПИ-кодом 
в строке. Г — поиск с конца строки; 


$ (YL-STRING-?OSITION 224 "Читатель") 


в <- ~ ah m 
> A 


; ASCII xog бухвы а - 224 
(VL-STRING-RIGHT-TRIM <"удаляемые символы"> <строка>) - yga- 
ляет определенные символы с конца строки; 


S (VL-STRINC-XICHT-TRIM "як" "коньяк") 


-ew зы - м 


ка|) — определяет начальную позицию первого вхождения заданного 
фрагмента в строке. Поиск чувствителен к регистру; 


$ (¥VL-STRING-SEARCH "Бар" "Санта-Барбара" } 


(VL-STRING-SUBST <"новый фрагмент"> <"старый фрагмент"> <ис- 
ходная строка> [позиция начала поиска]) — заменяет старый фрагмент 
в исходной строке на новый. Поиск чувствителен к регистру; 


SJEST "98" "95" "Windows 95") 
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(VL-STRING-TRANSLATE <”исходный набор"> <"новый набор"> 
<строка>) - заменяет исходный набор символов в строке на новый набор 
CHMBOJIOB; 

УЬ-СТРТМС-ТРАМСЬЕТЕ "246" "357" "str2 strå str6") 
ег 1" cà 

(VL-STRING-TRIM <" удаляемый набор" > < строка>) — удаляет Ha- 
бор символов в начале и в конце строки; 


_$ (VL-STRING-TRIM "——" "—*** n) 
иухххя 


(УТ-5УМВОГ-МАМЕ <символ>) — возвращает строку, содержащую 
имя символа; 


_$ (VL-SYMBOL-NAME ’S::STARTUP) 
“S: STARTUP: 
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(VL-SYMBOL-VALUE <символ> ) — возвращает текущее значение, CBA- 
занное с символом. Эта функция эквивалентна функции (EVAL...) 
AutoLISP, но не вызывает вычислитель LISP; 

_$ (VL-SYMBOL-VALUE 'T) 
T 

(VL-SYMBOLP <объект>) — идентифицирует, действительно ли опре- 

деленный объект — символ: 
_$ (VL-SYMBOLP T) 
T 

(VLAX-3D-POINT <список>) — создает ACTIV EX-COBMEcCTHMYIO трех- 

мерную структуру точки. Список - 2 или 3 числа, представляет точку; 
_$ (VLAX-3D-POINT 5 20) 
(5% 0 20.0 0-0) 

(VLAX-ADD-CMD <глобальное имя> <имя функции> [<локальное 
имя> < СМО-флажки >]) — добавляет команды к группе. Имя функции — 
функции AutoLISP с нулевыми параметрами; 

СМО-флажки - целое число (значения по умолчанию K 

ACRX_CMD_MODAL | ACRX_CMD_REDRAW); 

(VLAX-CURVE-GETAREA <кривая>) — возвращает область внутри 
кривой; 

(УГАХ-СОКУЕ-СЕТЬОТЗТАТРАКВАМ <кривая> <параметр>) - воз- 
вращает длину сегмента кривой от начала кривой до отметки, определяе- 
мой параметром; 

(УГАХ-СОКУЕ-СЕТОТЗТАТРОГ\УТ <кривая> <отметка>) — возвра- 
щает длину сегмента кривой между точкой начала кривой и определенной 
отметкой (в координатах WCS); | 

(УГАХ-СОВУЕ-СЕТЕМОРАКАМ <кривая>) — возвращает конечную 
точку кривой; 

(УГАХ-СОКУЕ-СЕТЕМОРОПМТ <кривая>) — возвращает конечиую 
точку кривой (в координатах WCS); 

(УГАХ-СОКУЕ-СЕТРОПМТАТРАКАМ <кривая> <параметр>) — on- 
ределяет точку на кривой, которая соответствует параметру, и возвращает 
эту точку; | 

(УГАХ-СОКУЕ-СЕТЗТАКТРАКАМ <кривая>) — возвращает napa- 
метр начала на кривой; 

(УГАХ-СОВУЕ-СЕТТАВТРОГМТ <кривая>) — возвращает отметку 
начала кривой (в координатах WCS); 

(VLAX-CURVE-ISCLOSED <кривая>) — определяет, закрыта ли опре- 
деленная кривая; 

(УГАХ-СОКУЕ-СЕТСГОЗЕТРО1МТТО <кривая> <точка> [расши- 
рение]) — возвращает точку (в координатах WCS) на кривой, которая 


№ 


12° 
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является самой олизкой к определенной точке. Если значение расширения 
не ноль, расширяет кривую при поиске самой близкой точки; | 

(УГАХ-СОВУЕ-СЕТСПОЗЕЗТРОТМТТОРКО]ЕСТЮМУ —<кривая> 
<точка> <нормаль> [расширение]|) — возвращает точку (в координатах WCS) 
на кривой, которая является самой близкой к определенной точке. Если 
расширение не ноль, расширяет кривую при поиске самой близкой точки; 

(УГАХ-СОВУЕ-СЕТЕТВУТОЕВТУ <кривая> <параметр>) — возвра- 
щает первую производную (в координатах WCS) кривой в определенном 
расположении: 

(УГАХ-СОВУЕ-СЕТЗЕСОМООЕЕВТУ <кривая> <параметр>) - воз- 
вращает вторую производную (в координатах WCS) кривой в определен- 
ном расположении: 

(УГАХ-РОМР-ОВ]ЕСТ <ОБЪЕКТ УГА>) - перечисляет методы 
объекта и реквизиты; 

(УГАХ- -ENAME -> УГА-ОВ]ЕСТ <входное имя объекта>) — трансфор- 
мир ет объект в объект VLA (УМ$Р АРИСАТЮОМ); 


Ро y ==> a речи, Нньшан чи 
| || = = р} ыы ) ) 
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#<VLŁ-OZJECT IŁUTOCADLWPOLYLINE 03F713A0 > 

(VLAX-ERASED-P <объект УГА>) — определяет, был ли объект унич- 
тожен. T, если объект был уничтожен, иначе NIL; 

(УГАХ-ЕОК <символ> <набор объектов> [выражение1 [выраже- 
ние2...|]) — выполняет итерации через набор объектов, оценивающих каж- 
дое выражение; 

(УГАХ-СЕТ-АОТОСАО-ОВ]ЕСТ) - восстанавливает верхний уровень 
объекта приложения AutoCAD для текущего сеанса AutoCAD; 

_$ (SETQ ŁA (УБАХ-СЕТ-АОТОСАР-ОВЧЕСТ} ) 
*<VLĀ-OSJZCT ТАСТОСАСАРр11саЕ1от 00B3B91C> 

(VLAX-INVOKE <объект VLA> <метод> < список параметров >) — 
называет определенный метод объекта. Функция (УГАХ-ПМУОКЕ...) Mo- 
жет использоваться для заказанного объекта ACTIVEX; 

(VLŁZ-INVOKE УЪА-ОВОЕСТ "UPDATE" NIL) 
- Это зививалентно обращению к стандарту VLA: 
(УТА-ОББЕТЕ VLA-OEJECT) 

(УГАХ-ГОАТА-ОЕГЕТЕ <объект VLA или AutoCAD> <клавиша>) — 
стирает данные LISP из словаря рисунка. T, если успешно, и NIL, если нет 
(например, данные не существовали); 

o били ГОА PUT DIOT" "КЕ" Pg) 
(1) 

_6 (УБАХ-БОАТА-БЕЪЕТЕ "DICT "КЕУ"} 
T 
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(УГАХ-ГОАТА-СЕТ <объект VLA или AutoCAD> <клавиша> [заданные 

по умолчанию данные]) - восстанавливает данные LISP из словаря рисунка; 
_$ (УЪАХ-ГОАТА-СЕТ "DICT" "КЕУ"} 
(1) 

(VLAX-LDATA-LIST <объект VLA или AutoCAD>) — перечисляет 
данные LISP в словаре — ассоциативный список, состоящий из пар (кла- 
виша — значение); 

(УГАХ-ГОАТА-РОТ <объект VLA или AutoCAD> <клавиша> <сохра- 
няемые данные>) — сохраняет данные LISP в словаре рисунка; 

_$ (VLAX-LDATA-PUT "DICT" "KEY" '(1)) 
(1) | | 

(УГАХ-ГОАТА-ТЕ$ЗТ <данные LISP >) -— определяет, могут ли данные 
быть сохранены за границей сеанса. T, если данные могут быть сохранены 
и восстановлены за границей сеанса, NIL, если нет; 

(УГАХ-МАР-СОГТЕСТЮМ <объект УГА> <функция>) — применяет 
функцию ко всем объектам в наборе; 

(УГАХ-МЕТНОЮ-АРРИСАВТГЕ-Р <объект VLA> <метод>) - опре- 
деляет, поддерживает ли объект специфический метод; 

_$ (УЬАХ-МЕТНОР-АРРЬТСАВЬЕ-Р WHATSMYLINE "СОРУ") 
T 

(VLAX-OBJECT-RELEASED-P <объект VLA>) — определяет, был ли 
объект реализован; 

(УГАХ-РКОПООСТ-КЕУ) - возвращает путь записи AutoCAD. Этот 
путь может быть использован с целью регистрации приложения для за- 
грузки запроса; 

_$ {УЪАХ-РВОБОСТ-КЕУ) 
"боЕЕмаге\ \Аибоаезк\ \ АибоСАП\ \В14.0\\АСАО-2451118:40800680" 

(УГАХ-РКОРЕКТУ-АУАП.АВТГЕ-Р <объект УГА> <свойство> [Т]) — 
определяет, имеет ли объект определенное свойство 

_$ (VLAX-PROPERTY-AVAILABLE-P МУСТВСЬЕ "АВЕА") 
ik 

Обратите внимание, как обеспечение факультативного третьего napa- 
метра изменяет результат: 

‚ _$ (УЪАХ-РЕОРЕВТУ-АУАТЬАВЬЕЕ-Р МУСТВСЬЕ "AREA" T) 
NIL 

Функция возвращает NIL, хотя круг имеет свойство "AREA" (<об- 
ласть»), которое не может изменяться; 

(УГАХ-РОТ <объект УГА> <свойство> <значение>) - установка зна- 
чения свойства функции нижнего уровня. Возвращает NIL, если установ- 
лено значение свойства: 
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_$ (УЪАХ-РОТ VLAOBJ "COLOR" 1) 
NIL 

(VLAX-READ-ENABLED-P <объект VLA>) — определяет, может ли 
объект читаться. T, если объект читаем, и NIL, если нет; 

(УГАХ-КЕС-АРР <имя регистрации приложения><список описаний 
команды> <INT> [имя приложения [булев флажок] |) — регистрирует npu- 
ложение (УР FUNCTION). 

Имя регистрации приложения — строка в форме "программное обеспе- 
чение\ \<название компании>\\< название программы >\\< версия про- 
граммы}> ". 

Список описаний команды, каждое из которых должно быть одним из: 
(< GLOBAL-CMD-NAME >. < ПОСАГ-СМО-МАМЕ >) или <СМО- 
NAME>. Каждое <СМО-имя> — строка или символ. 

Булев флажок предотвращает сбой на операциях записи, если не NIL, 
и возвращает NIL; значение по умолчанию NIL. 

Возврат - строка, содержащая путь раздела реестра, в котором было за- 
регистрировано приложение; 

(УГАХ-КЕГЕА$Е-ОВ]ЕСТ <объект УГА>) — сбрасывает объект рисо- 
вания. Возврат неопределенный; 

(УГАХ-КЕМОУЕ-СМО <глобальное имя>) — удаляет одиночную KO- 
манду или целую группу команд для текущего сеанса AutoCAD; 

(УГАХ-ТМАТЫХ <список>) — возвращает подходящее представление 
для матриц преобразования 4х4, которые нужно использовать в VLA ме- 
тодах. Список — список четырех списков, каждый из четырех чисел, пред- 
ставляет элементы матрицы преобразования; 

(УГАХ-ТУРЕПМЕО-АУАП.АВГЕ-Р <объект УГ.А>) — определяет дос- 
тупность ТУРЕ ШВ информацин. T, если ТУРЕШВ информация доступ- 
на, и NIL, если нет; 

(УГАХ-УГА-ОВ]ЕСТ-> ENAME <объект УГА>) — трансформирует 
объект VLA в объект AutoLISP. Возвращает имя объекта AutoLISP; 

_$ (VLAZ-VYLŁ-OBJECT->ENAME VLAOBJ) 
<ENTITY NAME: 27Е0540> , 

(VLAX-WRITE-ENABLED-P <объект VLA или входной объект 
AutoLISP>) — определяет, может ли объект рисования AutoCAD изме- 
HATÞCA; 

(VLISP-EXPORT-SYMBOL ‘Symbol-name) - экспортирует местную 
переменную AutoLISP к значению, которое она имеет B Visual LISP; 

_$ (SETQ 55 1) 

1 

_$ (УЬТ5Р-ЕХРОРТ-5УЧМВОГ, ’DD) 
1 
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(VLISP-IMPORT-EXSUBRS ‘(“имя загрузочного модуля приложения 
"”” названия функций приложения "...)) — регистрирует точку входа или 
приложения ARX внутри среды Visual LISP; 

_$ (VLISP-IMPORT-EXSUBRS '("АОТОСАРАРР.ЕХЕ" "АРРГоа@") } 

("АОТОСАБАРР" "АРРЬОАО" "С:РЗОВАС" "МТРЕОР" "МТЕОТТ" "C:PSFILL" "ВНАТСН" 
"BPOLY" "C:PSIN" "AUTOCAD_COLORDLG" "5ТАВТАРР" "ISMNUGRPLOADED" 
"ТМТТОТА" } 


(VLISP-IMPORT-SYMBOL <‘символ AutoLISP или список симво- 
лов>) — назначает символ Visual LISP к тому же самому значению, KOTO- 
poe он имеет в местном AutoLISP. Возвращает значение импортируемого 
символа или последнего импортируемого символа в списке символов; 


_$ (VLISP-IMPORT-SYMBOL 'DD) i 
т 

(УГВ-АСОВ-КЕАСТОВ <данные AutoLISP> <список пар>) — создает 
базу данных объекта КЕАСТОК (глобальной переменной). Список пар 
включает (<имя события>. <функцию повторного вызова>), где имя собы- 
тия — один из символов, перечисленных в таблице АСОВ. Каждая фуикция 
повторного вызова принимает два параметра: REACTOR OBJECT - 
объект VLR, называемый функцией повторного вызова, и ОВ] - объект 
базы данных (передаваемый как объект AutoLISP), связанный с событием; 

(VLR-ADD <объект VLR>) - доступ к заблокированному объекту 
КЕАСТОК; 

(VLR-ADDED-P <объект VLR>) - проверка допуска к объекту 
REACTOR. T, если допускается, и NIL, если REACTOR заблокирован; 

(УГВ-ВЕЕР-КЕАСТТОМ [параметры |) — выдает звуковой сигнал. . 

Эта функция работает только в Visual LISP IDE; 

(УЕВ-СОВКЕМТ-КЕАСТЮМ-МАМЕ,) - возвращает имя текущего co- 
бытия, если вызывается изнутри повторного вызова объекта REACTOR: 

(УГВ-РАТА-$ЕТ <объект VLR>) - возвращает специфические для 
приложения данные, связанные с объектом REACTOR; 

(УГВ-ОАТА-$ЕТ <объект VLR> <данные AutoLISP>) — записывает 
поверх специфические для приложения данные, связанные с объектом 
КЕАСТОК; 

(VLR-EDITOR-REACTOR <данные AutoLISP> <список пар>) - co- 
здает редактор объекта REACTOR. Объект REACTOR будет добавлен 
к базе данных рисунка, но не станет постоянным; 

Список пар включает (<имя события> <функция повторного вызова>), 
где имя события — один из символов, перечисленных в «Таблице редакто- 
ра». Каждая функция повторного вызова принимает два параметра: 
КЕАСТОК_ОВУЕСТ - объект VLR, который называется функцией 


-ok 
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повторного вызова, и ОВ] — объект базы данных (переданный как объект 
AutoLISP). связанный с событием. 

Список пар (< имя события > < список дополнительных элементов дан- 
ных. связанных со специфическим событием); 

(VLR-LINKER-REACTOR <данные AutoLISP> < список пар>) - co- 
здает компоновщик объекта REACTOR. Список пар — (<имя события>. 
<функция повторного вызова >), где имя события — один из символов, 
перечисленных в < Габлице событий компоновщика». Каждая функция no- 
вторного вызова принимает два параметра: объект VLR и список, содер- 
жащии строку имени программы АКХ; 

(УГВ-ОВ]ЕСТ-КЕАСТОВ <список AutoLISP объектов VLA > < дан- 
ные AutoLISP> <список пар>) — создает объектный объект REACTOR. 
Список пар (<имя события> <функция повторного возврата> ), где имя CO- 
бытия — один из символов, перечисленных в «Таблице событий объекта». 
Каждая функция повторного вызова принимает три параметра: владелец 
объекта VLA. объект VLR и список дополнительных элементов данных; 

(VLR-OWNER-ADD <объект УГК> <добавляемый объект VLR>) — 
добавляет объект к списку МОТТЕТЕВ$ объектов VLR объектного 
REACTOR. Добавляет новый источник событий; 

(VLR-OWNER-REMOVE <объект VLR> <удаляемый объект VLR>)-— 
удаляет объект из списка МОТТЕТЕВ$ объектного REACTOR; 

(VLR-OWNERS <объект УГ.К>) — возвращает список объектов, KOTO- 
рые сообщают определенному объекту КЕАСТОК; 

(VLR-PERS <объект VLR>) - делает объект REACTOR постоянным; 

(VLR-PERS-P <объект VLR>) — определяет, действительно ли объект 
REACTOR постоянный; 

(УГВ-РЕВ$-КЕГЕА$ФЕ <объект УГК>) - делает объект REACTOR 
нерезидентным; 

(УГВ-КВЕАСТОМ-МАМЕ$ <КЕАСТОК-ТУРЕ>) - возвращает список 
всех условий повторного вызова для этого типа объекта КЕАСТОК 
(VLISP FUNCTION); 

(VLR-REACTION-SET <oő6pekt VLR> <тип события> <функция>) — 
добавляет или заменяет функцию AutoLISP в объекте REACTOR; 

Чтобы использовать функции, созданные B Visual LISP в AutoCAD, необ- 
ходимо экспортировать имена функции в AutoCAD или ввести их неявно. 

При явном экспортировании используют функцию (VL-AUTOCAD- 
РЕЕБОМ...); 

(VL-AUTOCAD-DEFUN <‘имя функции>) — экспортирует имя функ- 
ции в AutoCAD; 

По умолчанию любые функции Visual LISP чьи имена иачинаются с С:, 
экспортируются в AutoCAD автоматически, если Visual LISP переменная 
системы *C-COLON-EXPORT* установлена как T. 
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В этой части книги приведены: 

e графические примитивы AutoCAD 
и примеры их создания с использова- 
нием в AutoLISP; 

° команды графического редактора 
AutoCAD для редактирования объ- 
ектов; 

представление данных в системе 
AutoCAD. 
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Графические примитивы AutoCAD и примеры их 
создания с использованием AutoLISP 


Наиболее часто используются следующие графические примитивы 
AutoCAD: точка, отрезок, окружность, дуга, полилиния, текст. 


Графический примитив точка 


Точка может быть задана несколькими способами: 
1. Адбсолютными координатами: 


MAAN ANT a DATAE №70 1 Эт 
COMMAND "РОТМ в“ 


SETU Ti (СЕТРОТУГ "\n Введите координаты точки T1 ")) 10, 12 
(SETQ X (СЕТРОТМГ "\n Ведите координату X точки T1 "}) 10 

У (СЕТРОТМТ "\п BzezmnTe координату У точки T1 ")) 12 
(СОММАМО "“DOINT" ‘(ХУ)) 
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2. Относительными координатами: 


(СЕЛ Ti (СЕТРОТМТ "\п Взедите координаты точки T1 "))} 10,12 


г — — ^^ — 2 в — Ща 


(SETO T2 (СЕТРЗОТМТ "\n Взедите координаты T2 относит. T1")) 65, 3; 


(СЕТО T2 (POLAR T1 РТ 100)); 

4. Привязкой к характерным точкам примитива: 
(ОЗМАР <исходная точка> <режим привязки>) 

Основные способы привязки: 

(ОЗМАР Т1 "МЕА”) — ближайшая (NEAREST) точка на примитиве; 
(ОЗМАР T1 "ЕМО") - конечная (ENDPOINT) точка линии или дуги; 
(ОМАР Т1 "МПо”) - средняя (MIDDLE) точка линии или дуги; 
(ОЗМАР T1 "СЕМ") - центр (CENTER) дуги или окружности; 
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(ОМАР T1 "NOD") — ближайшая точка (вершина) (NODE); 

(ОЗМАР Т1 "ОЧА") — ближайшая точка, лежащая на оси квадранта по 
дуге и окружности (0, 90, 180, 270°); 

(ОЗМАР Т1 "ПУТ”") - точка пересечения (ПМТЕВ-ЗЕСТТОМ) двух при- 
митивов (линий, дуг, окружностей); . 

(ОМАР T1 "INS") — точка вставки (INSERT) текста, блока; 

(ОЗМАР T1 "РЕК") — точка опускания перпендикуляра на примитив; 

(ОЗМАР Т1 "ТАМ") - точка касания касательной к дуге или окружности; 

(ОЗМАР Т1 "МОМ”") — отмена объектной привязки (NONE); 

(ОЗМАР T1 "ОЧТСК") — быстрый (QUICK) способ выбора объекта 
привязки. у 

Через запятую можно задать несколько режимов привязки. Приоритет 
действия привязки соответствует перечисленным выше. 


Графический примитив отрезок 


(COMMAND "LINE" T1 T2 "Ключ") - создание отрезка по двум точкам. 
Ключи: "С" (Close) — замыкает ломаную; 

"U" (Undo) — отменяет последний отрезок; 

"" — завершает создание отрезка. 

Например, 

(COMMAND "LINE" T1 T2 ТЗ "С") - создание треугольника. 


Графический примитив окружность 


(COMMAND "CIRCLE" "Ключ" ТТ...) — создание окружности. 

Если ключа нет — чертит окружность по центру и радиусу; 

"2P" — чертит окружность по двум точкам на диаметре; 

"ЗР" — по трем точкам на окружности; 

"TTR" - (TANGENT TANGENT RADIUS) - чертит окружность, 

касающуюся двух примитивов и имеющую радиус В; 

(COMMAND "CIRCLE" ТС R) - по центру ТС и радиусу В; 

(COMMAND "CIRCLE" "2P" T1 T2) - по двум точкам T1 и T2 на ama- 
метре; 

(COMMAND "CIRCLE" "3P" T1 T2 T3) - по трем точкам на окружности: 

(COMMAND "CIRCLE" "TTR" P1 P2 В) - обеспечивает касание двух 
примитивов P1 P2 и имеет радиус R. 


Графический примитив дуга 


(COMMAND "АКВС"...) — создает дугу и имеет ключи: 
"С" — (Centre) — центр дуги; 
"L" — (Length) - длина хорды; 
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"5" — (Start) — начальная точка; 

“R” — (Radius) - радиус дуги; 

“E” — (End) - конечная точка; 

“D” — (Direction) - направление; 

"A" — (Angle) — центральный угол. 

Примеры изображения дуги: 

(COMMAND "АКС" T1 T2 T3) - изображение дуги по трем точкам; 

(COMMAND "ARC" Т1 "С" TC T2) - по двум точкам T1, T2 и центру ТС; 

(COMMAND "ARC" Т1 "С" ТС "А" U) - по точке, центру ТС и углу U; 

(COMMAND "ARC" T1 "С" ТС "L" L) - по точке, центру ТС и хорде L; 

(COMMAND "АКС" T1 "Е" T2 "В" R) - по точкам T1, Т2 и радиусу R; 

(COMMAND "АКС" Т1 "Е" T2 "U" U) - по двум точкам и центр.углу U; 

(COMMAND "ARC" T1 "Е" Т2 "О" U) - по двум точкам и направлению U; 

(COMMAND "АВС" "C" TC "S" T1 "Е" T2) -— по центру и двум точкам; 

(COMMAND "АВС" "C" TC "S" T1 "А" U) — по центру, точке и углу U; 

(COMMAND "АКС" "C" TC "5" T1 "L" L) — по центру, точке и хорде L; 

(COMMAND "АКС" "CONTIN" T2) — продолжение линии или дуги 
в точку Т2. 


Графический примитив полилиния 


(COMMAND "РЫМЕ"...) — изображение последовательности прямо- 
линейных и дуговых сегментов с возможностью указания ширины. 

Ключи: 

для измерения ширины: 

"H" (Half-width) - полуширина; 

"W" (Width) — ширина; 

в режиме создания линий: 

"А" (Arc) — переход в режим дуг; 

"C" (Close) — замыкание линии; 

"U" (Undo) - отмена последнего сегмента; 

"L" (Length) - длина сегмента; ' ` 

в режиме создания дуг: 

"А" (Angle) — центральный угол, градусы; 

"СЕ" (СЕжег) — центр дуги; 

"СТ." (СГозе) — замыкание дугой; 

"О" (Direction) — направление по касательной; 

"L” (Line) — переход в режим линий; 

"L" (Length) — длина хорды; 

"В” (Radius) — радиус дуги; 

"S" (Second P.) — вторая точка. 
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Например, 


(COMMAND "PLINE" T1 "W" 0.50.5 T2 T3 
"д" TA LINE"UTS TE "ARIDI JO 


Графический примитив эллипс 


(COMMAND "ELLIPSE...) — построение эллипса с ключами: 

"С" (Center) — центр эллипса; 

"В" (Rotation) — угол поворота; 

(COMMAND "ELLIPSE" T1 T2 D2) - по двум точкам на концах глав- 
ной оси T1, T2 и длине другой оси — D2; 

(COMMAND "ELLIPSE" T1 Т2 "В" U) - по двум точкам на концах глав- 
ной оси и углу поворота относительно оси; 

(COMMAND "ELLIPSE" "С" ТС T1 D2) - по центру ТС, точке на KOH- 
це главной оси и величине другой оси эллипса; 

(COMMAND "ELLIPSE" "C" TC T1 "В" U) - по центру, точке на конце 
главной оси и углу поворота относительно оси. 


Графический примитив кольцо 


(COMMAND "DONUT" D1 D2 ТС) - изображение кольца по внутрен- 
нему диаметру кольца D1, внешнему — D2 и центру - ТС. 


Графический примитив многоугольник 


(COMMAND "РОШСОМ"...) — построение прямоугольника с ключа- 
ми: "В" (EDGE) - сторона; "С" — описывающий многоугольник; "I" — вии- 
санный многоугольник; 

(COMMAND "POLIGON" М "E" T1 T2) - по числу сторон М и двум 
точкам, лежащим на концах стороны; 

(COMMAND "POLIGON" N "C" TC "T" R) - по числу сторон М, центру 
TC и радиусу вписанной окружности R; 

(COMMAND "POLIGON" N "C" TC "С" R) - по числу старои N, uent- 
ру ТС и радиусу описывающей окружности R. 


Графический примитив текст 


(COMMAND "ТЕХТ"...) — представление текста на чертеже; 

(COMMAND "ТЕХТ" "A" T1 T2 "...") - вписывание текста между двумя 
точками T1 и T2; 

(COMMAND "TEXT" "F" T1 T2 "H" H "...") - ввод текста по ABYM точ- 
кам и высоте H; 

(COMMAND "ТЕХТ" "C" ТС "В" U "H" H "...") - ввод текста по цент- 
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ральной точке (Center) ТС, углу поворота U и высоте букв H; 
(COMMAND "ТЕХТ" "M" ТС "R" U "H" H "...") - ввод текста по cepe- 
дине (MIDDLE) с углом поворота U и высоте шрифта H; 
(COMMAND "TEXT" "R" T2 "В" U "H" H "...") — ввод текста с выравни- 
ванием по правому (RIGHT) краю T2, углу поворота U и высоте шрифта H; 
(COMMAND “TEXT” Т1 "R" U "H" H "...”) — ввод текста по начальной 
точке Г1. углу поворота U и высоте шрифта H; 
(COMMAND “"ОТЕХТ"...) — ввод нескольких строк текста. Ключи 
и способы ввода текста аналогичны команде "ТЕХТ". 


Команды графического редактора AutoCAD для 
редактирования объектов 


Объект в графическом редакторе AutoCAD - это некоторый примитив 
или совокупность примитивов (набор). Графический редактор AutoCAD 
обеспечивает возможность редактирования объектов. Первым шагом пе- 
ред редактированием является выбор объектов, который может быть про- 
изведен с помощью функции присвоения (SETO...) языка AutoLISP или 
с помощью специальных ключей редактора AutoCAD: 

"А" (Addition - прибавление) — добавление к набору еще одного; 

"В” (BOX) - выбор объектов рамкой с угловыми точками T1 и T2. 

Если T2 справа от Т1, то выбор объектов осуществляется внутри рамки, 
если T2 слева от T1, то выбираются объекты, как находящиеся внутри рам- 
ки (окна). так и пересекающие ее "В" N1 №2 ""; 

"С” (Crossing — пересечение) — выбор объектов, находящихся как BHYT- 
ри рамки с угловыми точками Т1 и Т2 (окна), так и пересекающихся ею 
CM RE 

"L" (Last — последний) — выбор последнего изображенного объекта; 

"M" (Multiple - многократно) — многократный выбор объектов; 

"P" (Роше — точка) — выбор объектов; на которых лежит точка. 

Если точка не лежит на объекте, то она становится первым углом рамки 
(окна), "Р” T1"; 

"РВ" (Previous - предыдущий) — выбор предыдущего набора объектов; 

"5" (Single — единственный) — выбор одного объекта; 

"В" (Remove — удаление) — удаление указанного объекта из набора; 

"U” (Undo — отмена) — удаление последнего добавленного в набор 
объекта; | 

"W” (Window — окно) — выбор объектов, находящихся внутри рамки 
(окна) с угловыми точками Т1 и Т2. 

В графическом редакторе AutoCAD имеется целый набор команд для 
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редактирования выделенных объектов: чт 

(COMMAND "MOVE" <выбор объектов> ВТ1 ВТ2 "") - перемещение 
выбранных объектов с базовой точкой ВТ1 к ВТ2; 

(COMMAND "ERASE" <выбор объектов> "") — удаление объектов; 

(COMMAND "COPY" <выбор объектов> ВТ1 ВТ2 "") - копирование 
выбранных объектов с базовой точкой ВТ] и размещение в ВТ2; 

(COMMAND "КОТАТЕ" <выбор объектов> ТС U "") — поворот выбран- 
ных объектов относительно центра ТС на угол U против часовой стрелки; 

(COMMAND "SCALE" <выбор объектов> TC К "") — изменение масш- 
таба относительно центра TC с коэффициентом масштаба К; _ 

(COMMAND "MIRROR" <выбор объектов> T1 T2 "") — зеркальное OT- 
ражение выбранных объектов относительно линии, проходящей через точ- 
ки T1 и T2; | 

(COMMAND "OFFSET" "T" <выбор объектов> T1 "") — изображение 
подобного объекта, проходящего через точку T1; 

(COMMAND "ARRAY" <выбор объектов> "R" МВ NS ВК RS "") - co- 
здание прямоугольного массива примитивов (объектов) с числом рядов МК, 
числом столбцов № и расстояниями между рядами RR и столбцами RS; 

(COMMAND "ARRAY" <выбор объектов> "P" ТС М U "У" "") - фор- 
мирование кругового массива (по кругу) с центром ТС, числом объектов 
М и размещением их против часовой стрелки с углом перемещения 
U и возможностью ориентации объекта У (N); 

(COMMAND "STRETCH" <выбор объектов> ВТ1 ВТ2 "") - вытягива- 
ние выбранных объектов с базовой точкой ВТ1 и сдвиг их в ВТ2; 

(COMMAND "DIVIDE" <выбор объектов> N "") — деление объекта на 
N частей; 

(COMMAND "DIVIDE" <выбор объектов> "В" МВ "У" М "") - укладка 
на выделенный объект блока NB и возможной ориентацией (YES) sanan- 
ное число раз М; 

(COMMAND " " <выбор объекта> "В" МВ1 "У" В "") - измерение объек- 
та с помощью блока МВ1 с расстоянием между блоками В и возможинос- 
тью ориентации (YES) (МОТ); 

(COMMAND "MEASURE" <выбор объекта> T1 T2 "") - измерение 
объекта единицей измерения - отрезок [T1 T2]; 

(COMMAND "СНАМСЕ" <выбор объекта> T1 U "") - изменения: для 
отрезка — его конечная точка передвигается в точку T1; для окружности — 
меняет радиус; для текста и блока — меняется точка вставки; примитив 
поворачивается на угол U; 

(COMMAND "CHANGE" <выбор объекта> “Р”... "") — изменение 
свойств примитива: "С" (COLOR - цвет); "ГА" (LAYER - слой); "ТТ" 
(LTYPE - тип линии). За ключом "С" стоит код нового цвета, за ключом 
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“LA” — новое имя слоя; за "СТ" — новый тип линии ("ОАЗНООТ" - штрих- 
пункгирная, “DASHED” — пунктирная, "CONTINUOUS" - непрерывная). 

(COMMAND "BREAK" <выбор объекта> T1 T2 "") — разрыв без стира- 
ния или стирание части объекта от точки T1 ("F") до точки T2 против ya- 
совой стрелки. Если указан ключ "F", разрыв в T1; 

(COMMAND “TRIM” <выбор границ> "" <выбор объекта> "") — удале- 
ние части примитивов, которые пересекают границы; 

(COMMAND "EXTEND" <выбор границы> "" <выбор объекта> "") — 
вытягивание объекта до границы; 

(COMMAND "FILLET" "R" R <выбор объектов> "") — сопряжение ли- 
ний; если стоит ключ “R”, а за ним значение К, сопряжение производится 
по радиусу К двух линий, которые выбираются после данной команды; 
если стоит ключ “P”, скругляется полилиния, которая выбирается сразу 
же за ключом. 

(COMMAND "CHAMBER" "D" D1 D2 <выбор двух линий> "") — вы- 
черчивание фасок: если стоит ключ "О" и указаны расстояния отсечения 
линий от точек их пересечения — D1 и D2, то концы отсеченных линий 
соединяются; если стоит ключ “P”, в углах полилинии снимаются фаски; 

(COMMAND "РЕПТТ" <выбор полилинии> "Ключ" "") — редактирова- 
ние полилиний с использованием соответствующих ключей: 

"С (CLOSE - закрыть) — замыкание ломаной линии; 

“О” (Open — открыть) — размыкание ломаной линии; 

“J” (ош - присоединить) — присоединение дуг и ломаных линий; 

“W” (Width — ширина) — ввод новой ширины ломаной линии; 

"Е" (Edit - редактировать) — выбор и редактирование вершин; 

“F” (Fit - скруглить) — скругление вершин ломаной линии; 

"$" (Spline — сплайн) — аппроксимация ломаной линии сплайном; 

“D” (Оесигуе — выпрямить) — удаление скруглений; 

"О" (Undo - отменить) — отмена режима редактирования; 

“K” (Exit - выйти) — выход из режима редактирования. 

Например, (COMMAND "РЕРТТ" <выбор ломаной> "F" "Х"). 


Представление данных в системе AutoCAD 


AutoCAD -— одна из универсальных базовых систем автоматизированного 
конструирования, обеспечивающая возможность эффективного выполнения 
операций конструирования. Основным элементом этой системы является 
примитив. Примитив - это элемент чертежа, воспринимаемый системой 
как нечто целое. Примитивы в AutoCAD могут быть простыми (отрезок, 
‘окружность, дуга. и т. д.) и составными (полилиния, вставки, блоки). 
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Составные примитивы делятся на субпримитивы. Например, для полили- 
нии субпримитивами являются вершины, для вставки, блоков — атрибуты. 

Вся информация о примитивах в системе AutoCAD содержится в базе 
данных графического редактора AutoCAD в виде списков. Список состо- 
ит из подсписков, большинство которых имеют вид точечных пар. Исклю- 
чение составляют подсписки, описывающие координаты точки. Первый 
элемент подсписка — это код (ключ) параметра, а второй и последующие 
элементы — значения параметра. Каждый примитив характеризуется CO- 
вокупностью параметров: именем, типом, именем типа линии, слоя и т. д. 
Код и значение параметра в точечной паре разделяются точкой. В таблице 
приведены примеры, коды и параметры для примитивов, которые исполь- 
зуются наиболее часто. 


Код и значение Отрезок Окружность Дуга 
параметра 
(-1.<имя примитива>) (-1. L4) (-1. СВ2) (—1. АВ) 


(0.Зтип примитива>) (0.“ЕПМЕ”) (0."СТВСЕЕ”) (0."АВС”) 
(6.<имя типа линии>) (6.`РАЗНЕО”) (6."СЕщег") (6.’РАЗНЕО”) 


(8.<имя слоя>) (8.0) (8. "УГОП”) (8. "5ГОТ$”) 
(10.<коорд. точки>) (1034) (105050) (1077 15) 
(11.<коорд. точки>) (1198) 
(40.<радиус>) (40. 150) (40. 225) 
(50.<начальный угол>) (50. 30) 
(51.<конечный угол>) (21.77) 
(62.<цвет>) (62.5) (62. 3) (62.4) 


Чтобы вывести список (совокупность подсписков) данных любого при- 
митива, необходимо использовать функцию (ЕМТСЕТ <имя примити- 
ва>). Например, список данных примитива с именем L4, а под этим HMC- 
нем ранее был создан отрезок, можно получить следующим образом: 

(ЕМТСЕТ L4) 


(Е. 60000550 (0 7 "CINE") 167. DASHDOT*)] (E + "SE") 
(d0 S 70) ПЕ TEe2 S3] 


Из списка данных следует, что под этим именем отрезок. По существу, 
список данных примитива — это ассоциативный список, список типа ("код 
параметра" — "значение параметра"). Код (ключ) определяет первый эле- 
мент подсписка, а второй элемент подсписка определяет значение пара- 
метра. 

Используя функцию (ASSOC <код (ключ) параметра> <список>), 
можно выделить нужный подсписок. Чтобы определить, например, какой 
примитив скрывается под именем L4, достаточно использовать функцию 
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Приложение 


(ASSOC 0 L4) 
(0 . TLINE'") 


Определить координаты центра окружности CR2 (см. таблицу) можно, 
например. используя несколько функций: 


(SETQ ТС (CAR (2$50С 10 CR2))) 


Функция (ASSOC 10 CR2) определяет подсписок вида (10 50 50), фун- 
KuHa (CDR...) формирует список без первого элемента (50 50), фуикция 
(ЗЕТО...) присваивает переменной ТС координаты центра окружности 
(5050). 

В качестве графического примитива в AutoCAD может выступать блок. 
Блок может содержать любое количество графических примитивов любо- 
го типа. а восприниматься AutoCAD как один графический примитив. Для 
создания блока (только в текущем чертеже) используется команда 
“"ВГОСК”. Для создания олоков, которыми можно воспользоваться при 
построении любых чертежей, достаточно выбрать команду "\УВГОСК”. 
Эта команда служит для записи блока в отдельный файл с заданным име- 
нем и имеет расширение DWG. Рассмотрим примеры создания блока из 
выбранных объектов: 

(COMMAND "BLOCK" <имя блока> <базовая точка блока> <выбор 

объектов> “") 


ть — —=. — e лить =- — = пр = № <^ Г — = = — 
ег N, B гут T m ET ST z2 AR ил 
W = = = = — ЧИ ыы w Wea v — = = — a = -a*^ aa» 


Включение блока в текущий чертеж производится при помощи коман- 
ды "INSERT" (Вставить), которая в общем виде выглядит так: 

(COMMAND "INSERT" <имя блока> <базовая точка вставки> <мас- 
штаб по оси X> <масштаб по оси Y> <угол поворота>). Например, 


~% -= лишить -y => m m an —— m г — — ча а = ` 
i erang ? u =. 1и д ы H" , 
ев => Г | i ) 
do amw m El e 


er ` a e et at ’ anf -a las a $ am aa) anp F 


Графический редактор AutoCAD позволяет создавать чертежи, которые 
представляют собой «многослойный пирог». Например, на первом слое na- 
ется чертеж без размеров, на втором — только размеры к данному чертежу, на 
третьем — штриховка к отдельным его элементам. При необходимости слои 
можно накладывать друг на друга в любом сочетании, удалив ненужные. 

Для реализации многослойного изображения чертежа используется ко- 
манда “LAYER”, которая имеет следующие ключи: 

"M" (Маке -— сделай) — создает слой и делает его техущим; 

"5" (Set — установи) — делает слой текущим; 

"ОМ" (ОМ - включи) ~ делает слои видимым; 
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"OFF" (OFF - отключи) — делает слой невидимым; 

"С" (Color — цвет) — определяет цвет слоя; 

"М" (New - новый) — создает новый слой; 

"L" (Ltype — тип линии) — определяет тип линии; 

"7?" — выводит список созданных слоев. 

Ключ "С" (Color — цвет) может использовать следующие цвета: "В" 
(Red - красный), "У" (Yellow — желтый), "С" (Green — зеленый), "С" 
(Суашс — голубой), "В" (Blue - синий), "М" (Magenta -— розовый), "W" 

(White — белый). | 
_ Ключ "|" (Ппебуре - тип линии) может использовать следующие pe- 
жимы: 

"S" (Set - установи) — текущий тип линии: "CONTINUOUS" - непре- 
рывный; "DASHED" — пунктирный; "ОАЗНООТ" — штрихпунктирный; 

"В" (Read — просмотр) — просмотр типов линий; 

"С" (Create — создание) — создание нового типа линий; 

"L" (Load — загрузка) — использование нового типа линии. 

Например, (COMMAND "LAYER" "М" "L" "DASHDOT" ""). 

При использовании команд построения графических примитивов часто 
применяют команды: “ZOOM”; "UCS". 

"ZOOM" (Покажи) - изменяет размер, а также местоположение черте- 
жа на экране и имеет следующие ключи: 

"С" (Center — центр) — изображение чертежа по центру; 

"D" (Dynamic — динамический) — изображение динамическим окном; 

"L” (Left — левый) — задание левого нижнего угла чертежа с изменением 
масштаба; 

"P" (Previous - предыдущий) - предыдущий режим изображения; 

"W" (Window -— окно) — изображение окном с угловыми точками. 

Например, 

(COMMAND "ZOOM" "L" Т1 М "") 

"UCS" (User Coordinate System) — система координат пользователя, KO- 
торая имеет следующие ключи: 

"O" (Origin - начало) — параллельный перенос координат; 

"Z" (Z - ось) — поворот вокруг оси Z на заданный угол; 

"S" (Save — сохрани) — сохранение текущей системы координат под He- 
которым именем. 

Например, (COMMAND "UCS" "S" МТ). 

"В" (Restore — восстанови) — восстановление под заданным именем: 

"W" (World - мир) - переход в абсолютную систему "WCS" — World 
Coordinate System. 
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Книга является практическим руководством, основой для са- 
мостоятельного изучения и освоения мощной универсальной 
среды автоматизации инженерно-графических работ 
AutoCAD. Она поможет читателю в короткий срок освонть 
команды двухмерного черчення, трехмерного моделирования и 
получения конструкторской документации по разработанным 
просктам. 

Кроме того, в книге предлагаются различные методики, под- 
ходы к разработке конструкторской документации, проверен- 
ные многолетним опытом работы в среде AutoCAD, которые 
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за основу независимо от версни AutoCAD. 

Книга сопровождается большим количеством иллюстраций, 
реализованных в системе AutoCAD, и справочными данными; 
содержит упражнения, охватывающие практически все коман- 
ды и иллюстрирующие их возможности. К книге прилагается 
электронный вариант упражнений на компакт-диске. 

Очень важно, что благодаря максимальной преемственнос- 
ти по командам и по структуре данных, навыки, приобретен- 
ные при выполнении данных в книге упражнений и их элек- 
тронного варианта, можно использовать в среде AutoCAD 
различных версий. Иллюстрации рабочего стола AutoCAD 
R14 выполнены в Windows МТ. 

Книга предназначена для широкого круга пользователей: 
учащихся любых учебных заведений, в том числе студентов BY- 
зов, профессионаЛьных чертежников, конструкторов и инжеие- 
ров, которые хотят освоить и использовать современные ком- 
пьютерные технологии в конструированимн и проектироваиии. 

Для легальных пользователей. 


ДЛЯ СВЯЗИ: 


Оптовые закупки: тел. (095) 264-7536 
E-mail: info@dmk.ru 
Web: http://www.dmk.ru 
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ТЕ содержит поэтапное описание ирекомендации 


‚по методике работы с программой цифрового видеомон- 


Taxa Adobe Premiere 5.0. Подробно pac- 
смотрен пользовательский интерфейс 


дуля с подключаемыми дополнениями, 
атакже перечислены средства для работы 
с видео- изудноматерналами. Издание xo- 
рошо иллюстрировано, состоит из 14 глав 
и предметного указателя. 


кто увлечен миром мультимедиа — и профессионалам, 
и вачинающим, и любителям. 


Книга предназначена для 
пользователей, желающих начать 
работу c ресурсами Internet в бли- 
жайшее время, HO незнающихс чего 
начать. Подробно рассматривают- 
ся вопросы выбора и последующей 
настройки, модема, приводятся 
критерии выбора провайдера. При- 

водится больное количество сира- 
вочной ниформации необходимой 
при нодключении K Internet, но не 
доступной внесети. 


Вкниге описываются всеаспекты со- 
временного программирования наассем- 
блере для DOS, Windows 95/МТ и Unix 
(Solaris, Linux и FreeBSD), включая co- 
здание резидентных программ и драйве- # 
ров, прямое программирование перифе- 
рнйных устройств, управление защишен- $ 
ным режимом и многое другое. Подробно | 
рассмотрена архитектура процессоров 
Jntel вплоть до Pentium 1: Все главы ил- 
люстрированы подробными примерами 
работоспособлых программ. 
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Книгазнакомитссамой популярной версией языка Пас- 


каль — Турбо Паскаль7.0 фирмы Borland, атакжеего nan- 


более известным расширением — Борланд 
Паскаль 7.0. Содержит много примеров и 
алгоритмов. Новые понятия о структурах 
даниых и средствах организации вычисли- 
тельных процессов, а также их отладки, BRO- 
дятся по мере возрастания сложности за- 
дач: от первой программы, которая умеет 
выводить на экран единственное сообще- 
ние,— до последней, проигрывающей WAV- 
файлы; отобычных переменных — кдинамическим объек- 
там. 


Киига знакомитс приложениями, 
входящими в состав программы 
Егопи Рае: проводником (ЕР 
Explorer), редактором (ЕР Editor) 
иперсональным \е-сервером. В ней 
также описаны новые возможности 
последней версии программы 
Front Page 98. Рассмотрены языки ги- 
пертекстовой разметки (HTML 3.2) 
и создания спенариев (JavaScript). 
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Книга является руководством по при- 
менению программного камплекса 
AutoCAD (версия 14 для Windows 95 
и Windows МТ). Данное издание поможет 
читателю в короткий срок освоить METO- 
ды двухмерного черчения, трехмерного 
| моделирования п разработки конструк- 
| торекой документации. 

Навыки, полученные при изучении дан- 

‚| Ной кии. могут быть с успехом исполь- 
зованы при работе с другими версиями 
программы AutoCAD. 
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